Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Microsoft Office > Access and Access VBA > Access
Password Reminder
Register
| FAQ | Members List | Search | Today's Posts | Mark Forums Read
Access Discussion of Microsoft Access database design and programming. See also the forums for Access ASP and Access VBA.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old October 9th, 2003, 09:13 AM
Registered User
 
Join Date: Oct 2003
Location: Jackson, NJ, USA.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to sosdian2
Default Compilation Error '800a03ea' fpdblib.inc

I am using frontpage 2002 with access 2002.
I created a query for a form in frontpage.
Everytime i click on the click to view my data i get this nice error message.

Microsoft VBScrip compilation error '800a03ea'
Syntax error
E:\SAIFDEV2\SALES\AMS\../../_fpclass/fpdblib.inc,line3

Sub FP_SetLocaleForPage
^

My code for this page is as follows:

<%

Sub FP_SetLocaleForPage
    On Error Resume Next
    Session("FP_OldCodePage") = Session.CodePage
    Session("FP_OldLCID") = Session.LCID
    Err.Clear
    if FP_CodePage <> 0 then
        Session.CodePage = FP_CodePage
        if Err.Number <> 0 then Session.CodePage = Session("FP_OldCodePage")
    end if
    Err.Clear
    if FP_LCID <> 0 then
        Session.LCID = FP_LCID
        if Err.Number <> 0 then Session.LCID = Session("FP_OldLCID")
    end if
End Sub

Sub FP_RestoreLocaleForPage
    On Error Resume Next
    if Session("FP_OldCodePage") <> 0 then
        Session.CodePage = Session("FP_OldCodePage")
    end if
    if Session("FP_OldLCID") <> 0 then
        Session.LCID = Session("FP_OldLCID")
    end if
    Err.Clear
End Sub

Function FP_HTMLEncode(str)

    FP_HTMLEncode = str
    FP_HTMLEncode = Replace(FP_HTMLEncode,"&","^^@^^")
    FP_HTMLEncode = Server.HTMLEncode(FP_HTMLEncode)
    FP_HTMLEncode = Replace(FP_HTMLEncode,"^^@^^","&")

End Function

Function FP_FieldVal(rs, fldname)

    FP_FieldVal = FP_HTMLEncode(FP_Field(rs, fldname))
    if FP_FieldVal = "" then FP_FieldVal = "&nbsp;"

End Function

Function FP_Field(rs, fldname)

    If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname)) Then
        Select Case rs(fldname).Type
            Case 128, 204, 205 ' adBinary, adVarBinary, adLongVarBinary
                FP_Field = "[#BINARY#]"
            Case 201, 203 ' adLongVarChar, adLongVarWChar
                if rs(fldname).DefinedSize > 255 then
                    ' check for Access hyperlink fields (only absolute http links)
                    fp_strVal = rs(fldname)
                    fp_idxHash1 = InStr(LCase(fp_strVal),"#http://")
                    if fp_idxHash1 > 0 then
                        fp_idxHash2 = InStr(fp_idxHash1+1,fp_strVal,"#")
                        if fp_idxHash2 > 0 then
                            ' this is an Access hyperlink; extract the URL part
                            fp_strVal = Mid(fp_strVal,fp_idxHash1+1)
                            if Right(fp_strVal,1) = "#" then
                                fp_strVal = Left(fp_strVal,Len(fp_strVal)-1)
                            end if
                        end if
                     end if
                     FP_Field = fp_strVal
                else
                     FP_Field = rs(fldname)
                end if
            Case Else
                FP_Field = rs(fldname)
        End Select
    Else
        FP_Field = ""
    End If

End Function

Function FP_FieldHTML(rs, fldname)

    FP_FieldHTML = FP_HTMLEncode(FP_Field(rs, fldname))

End Function

Function FP_FieldURL(rs, fldname)

    FP_FieldURL = Server.URLEncode(FP_Field(rs, fldname))

End Function

Function FP_FieldLink(rs, fldname)

    FP_FieldLink = Replace(FP_Field(rs, fldname), " ", "%20")

End Function

Sub FP_OpenConnection(oConn, sAttrs, sUID, sPWD, fMSAccessReadOnly)

    Dim sTmp
    Dim sConnStr
    Dim fIsAccessDriver

    fIsAccessDriver = (InStr(LCase(sAttrs), "microsoft access driver") > 0)
    sConnStr = FP_RemoveDriverWithDSN(sAttrs)
    sTmp = sConnStr

    On Error Resume Next

    If fMSAccessReadOnly And fIsAccessDriver Then

        sTmp = sTmp & ";Exclusive=1;ReadOnly=1"

        Err.Clear
        oConn.Open sTmp, sUID, sPWD
        If Err.Description = "" Then Exit Sub

    End If

    Err.Clear
    oConn.Open sConnStr, sUID, sPWD

End Sub

Function FP_RemoveDriverWithDSN(sAttrs)

    FP_RemoveDriverWithDSN = sAttrs

    sDrv = "driver="
    sDSN = "dsn="
    sLC = LCase(sAttrs)
    if InStr(sLC, sDSN) < 1 then exit function

    idxFirst = InStr(sLC, sDrv)
    if idxFirst < 1 then exit function
    idxBeg = idxFirst + Len(sDrv)
    if Mid(sLC,idxBeg,1) = "{" then
        idxEnd = InStr(idxBeg, sLC, "}")
        if idxEnd > 0 and Mid(sLC,idxEnd+1,1) = ";" then
            idxEnd = idxEnd + 1
        end if
    else
        idxEnd = InStr(idxBeg, sLC, ";")
    end if
    if idxEnd < 1 then idxEnd = Len(sLC)

    FP_RemoveDriverWithDSN = Left(sAttrs,idxFirst-1) & Mid(sAttrs,idxEnd+1)

End Function

Sub FP_OpenRecordset(rs)

    On Error Resume Next
    rs.Open

End Sub

Function FP_ReplaceQuoteChars(sQry)

    Dim sIn
    Dim sOut
    Dim idx

    sIn = sQry
    sOut = ""

    idx = InStr(sIn, "%%")

    Do While (idx > 0)

        sOut = sOut & Left(sIn, idx - 1)
        sIn = Mid(sIn, idx + 2)
        if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then
            sIn = Mid(sIn, 2)
            sOut = sOut & "%"
        end if
        sOut = sOut & "::"

        idx = InStr(sIn, "%%")
        if idx > 0 then
            sOut = sOut & Left(sIn, idx - 1)
            sIn = Mid(sIn, idx + 2)
            sOut = sOut & "::"
            if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then
                sIn = Mid(sIn, 2)
                sOut = sOut & "%"
            end if
        end if

        idx = InStr(sIn, "%%")

    Loop

    sOut = sOut & sIn

    FP_ReplaceQuoteChars = sOut

End Function

Sub FP_Close(obj)

    On Error Resume Next

    obj.Close

End Sub

Sub FP_SetCursorProperties(rs)

    On Error Resume Next

    rs.CursorLocation = 3 ' adUseClient
    rs.CursorType = 3 ' adOpenStatic

End Sub

%>

I have no idea what the problem is.
I have three other pages that function the same way and do not get a error message for those.


Thanks,
ChristinaS

ChristinaS
Reply With Quote
  #2 (permalink)  
Old October 10th, 2003, 03:29 PM
Registered User
 
Join Date: Oct 2003
Location: Jackson, NJ, USA.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to sosdian2
Default

I was running a Query to a Query that does not exist.

ChristinaS
Reply With Quote
  #3 (permalink)  
Old May 5th, 2004, 05:01 PM
Registered User
 
Join Date: May 2004
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

I have inherited a similar problem. I'm getting the same error message; where did you find reference to the non-existent query?
Reply With Quote
  #4 (permalink)  
Old May 5th, 2004, 05:23 PM
Friend of Wrox
 
Join Date: Jun 2003
Location: Bangalore, KA, India.
Posts: 2,480
Thanks: 0
Thanked 1 Time in 1 Post
Default

which line gives you that? Can you post some part of the code along with the error?

-Vijay G
Reply With Quote
  #5 (permalink)  
Old May 5th, 2004, 05:26 PM
Friend of Wrox
 
Join Date: Jun 2003
Location: Bangalore, KA, India.
Posts: 2,480
Thanks: 0
Thanked 1 Time in 1 Post
Default

The Cause of Code 800A03EA
Your VBScript contain is missing a character. Note: The clue Source: Microsoft VBScript compilation error, means it is a syntax error.

check your on the line it says for correct syntax or missing character.

-Vijay G
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Microsoft VBScript compilation error '800a03ea' activelobby.sim Classic ASP Basics 1 October 10th, 2011 03:09 PM
Compilation Error furqanms Pro Java 2 September 28th, 2007 11:22 AM
compilation error pratik28 C# 1 September 24th, 2006 07:39 AM
Microsoft VBScript compilation error '800a03ea' activelobby.sim Classic ASP Basics 1 September 21st, 2006 09:22 AM
compilation error saint Classic ASP Databases 2 June 23rd, 2003 04:08 AM



All times are GMT -4. The time now is 04:14 PM.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.