Markus: onload eines ASP - Recordsets...

SELF-Forum

onload eines ASP - Recordsets...

Markus
– Informationen zu den Bewertungsregeln

Möchte in einer Seite mit Onload="..."

die Ergebnisse aus einer Datenbank abfragen u in 2 Frame öffnen:

Es sollte mit:
<%Response.write ("<body onLoad=""parent.frames[1].location.href='" & FP_FieldVal(fp_rs,"Internet1") & "';"">")%>

Was mache ich dabei falsch??

Danke
Ciao
Markus

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. onload eines ASP - Recordsets...

    Stefen Baetge
    – Informationen zu den Bewertungsregeln

    Hi Markus

    <%Response.write ("<body onLoad=""parent.frames[1].location.href='" & FP_FieldVal(fp_rs,"Internet1") & "';"">")%>

    Was mache ich dabei falsch??

    Versuchs mal hiermit:
    <% Response.write ("<body onLoad=""parent.frames[1].location.href='" + cstr(FP_FieldVal(fp_rs,"Internet1")) + "';"">") %>

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln

    1. onload eines ASP - Recordsets...

      Markus
      – Informationen zu den Bewertungsregeln

      Versuchs mal hiermit:
      <% Response.write ("<body onLoad=""parent.frames[1].location.href='" + cstr(FP_FieldVal(fp_rs,"Internet1")) + "';"">") %>

      Wenn ich es jetzt wie ursprünglich mit:

      <%Response.write("body onload='parent.frames[1].location.href='" &  FP_FieldVal(fp_rs,"Internet1") & "';>'")%>

      mache bekomm ich dann folgende Fehlermeldung:

      Microsoft VBScript runtime error '800a01a8'

      Object required

      /_fpclass/fpdblib.inc, line 12

      Die Datei dazu sieht so aus:

      <%

      Function FP_FieldVal(rs, fldname)

      FP_FieldVal = Server.HTMLEncode(FP_Field(rs, fldname))
          if FP_FieldVal = "" then FP_FieldVal = " "

      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 = Server.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

      %>

      Was könnt ich da ändern damit es funktioniert???

      Wäre über eine Hilfe sehr dankbar!

      Danke

      Ciao
      Markus

      Beitrag melden
      –
      Informationen zu den Bewertungsregeln

  2. onload eines ASP - Recordsets...

    Markus Mühlich
    – Informationen zu den Bewertungsregeln

    Hallo,

    <%Response.write ("<body onLoad=""parent.frames[1].location.href='" & FP_FieldVal(fp_rs,"Internet1") & "';"">")%>

    Im Original sieht das so aus:

    <body onload="javascript:parent.frames[1].location.href='test1.htm';>"

    Daraus wir im ersten Teil dann:
    myBody = "<body onLoad='parent.frames[1].location.href='" &

    Der zweite Teil:
    myBody = myBody & fp_rs("Internet1")

    Der dritte Teil:
    myBody = myBody & "';>'"

    Und zum Schluß:

    <%Response.write(myBody)%>

    Viel Grüße aus Köln
    Markus

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln

    1. onload eines ASP - Recordsets...

      Markus
      – Informationen zu den Bewertungsregeln

      Hallo,

      <%Response.write ("<body onLoad=""parent.frames[1].location.href='" & FP_FieldVal(fp_rs,"Internet1") & "';"">")%>

      Im Original sieht das so aus:

      <body onload="javascript:parent.frames[1].location.href='test1.htm';>"

      Daraus wir im ersten Teil dann:
      myBody = "<body onLoad='parent.frames[1].location.href='" &

      Der zweite Teil:
      myBody = myBody & fp_rs("Internet1")

      Der dritte Teil:
      myBody = myBody & "';>'"

      Und zum Schluß:

      <%Response.write(myBody)%>

      Viel Grüße aus Köln
      Markus

      Danke für deine Hilfe!!

      Aber wie soll ich das jetzt mit den 3 Teilen angehen??

      Wie soll ich anfangen??

      Das myBody=... kann doch nicht so frei stehen

      Danke

      Gruß
      Markus

      Beitrag melden
      –
      Informationen zu den Bewertungsregeln

      1. onload eines ASP - Recordsets...

        Markus Mühlich
        – Informationen zu den Bewertungsregeln

        Hallo,

        Du kannst natürlich auch weiterhin

        <%Response.write("body onload='parent.frames[1].location.href='" &  fp_rs("Internet1") & "';>'")

        schreiben. Ich persönlich halte es für übersichtlicher und einfacher solche Strings strukturiert aufzubauen:

        <html>
        <head>
        </head>
        <%
        myBody = "<body onLoad='parent.frames[1].location.href='"
        myBody = myBody & fp_rs("Internet1")
        myBody = myBody & & "';>'"
        Response.write(myBody)
        %>
        </body>
        </html>

        Gruß
        Markus

        Beitrag melden
        –
        Informationen zu den Bewertungsregeln

        1. onload eines ASP - Recordsets...

          Markus
          – Informationen zu den Bewertungsregeln

          Hallo,

          Du kannst natürlich auch weiterhin

          <%Response.write("body onload='parent.frames[1].location.href='" &  fp_rs("Internet1") & "';>'")

          schreiben. Ich persönlich halte es für übersichtlicher und einfacher solche Strings strukturiert aufzubauen:

          <html>
          <head>
          </head>
          <%
          myBody = "<body onLoad='parent.frames[1].location.href='"
          myBody = myBody & fp_rs("Internet1")
          myBody = myBody & & "';>'"
          Response.write(myBody)
          %>
          </body>
          </html>

          Gruß
          Markus

          Bekomme aber dabei immer diese Fehlermeldung:Microsoft VBScript compilation error '800a03ea'

          Syntax error

          /Info1.asp, line 18

          myBody = myBody & & "';>'"
          ------------------^

          Ciao
          Markus

          Beitrag melden
          –
          Informationen zu den Bewertungsregeln

          1. onload eines ASP - Recordsets...

            Markus Mühlich
            – Informationen zu den Bewertungsregeln

            Hallo,

            myBody = myBody & & "';>'"
            ------------------^

            Sorry, da hat sich ein "&" zuviel eingeschlichen. Hol das mal raus.

            Gruß
            Markus

            Beitrag melden
            –
            Informationen zu den Bewertungsregeln

            1. onload eines ASP - Recordsets...

              Saturn
              – Informationen zu den Bewertungsregeln

              Bekomme mit:

              <%
              myBody = "<body onLoad='parent.frames[1].location.href='"
              myBody = myBody & FP_FieldVal(fp_rs,"Internet1")
              myBody = myBody &  "';>'"
              Response.write(myBody)
              %>

              den gleichen effekt wie mit:
              Wenn ich es jetzt wie ursprünglich mit:

              <%Response.write("body onload='parent.frames[1].location.href='" &  FP_FieldVal(fp_rs,"Internet1") & "';>'")%>

              mache bekomm ich dann folgende Fehlermeldung:

              Microsoft VBScript runtime error '800a01a8'

              Object required

              /_fpclass/fpdblib.inc, line 12

              Die Datei dazu sieht so aus:

              <%

              Function FP_FieldVal(rs, fldname)

              FP_FieldVal = Server.HTMLEncode(FP_Field(rs, fldname))
                  if FP_FieldVal = "" then FP_FieldVal = " "

              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 = Server.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

              %>

              Was könnt ich da ändern damit es funktioniert???

              Wäre über eine Hilfe sehr dankbar!

              Danke

              Ciao
              Markus

              Beitrag melden
              –
              Informationen zu den Bewertungsregeln

              1. onload eines ASP - Recordsets...

                Markus Mühlich
                – Informationen zu den Bewertungsregeln

                Hallo,

                FP_FieldVal(fp_rs,"Internet1")

                ruft

                Function FP_FieldVal(rs, fldname)

                auf. Diese wiederum ruft mit

                ...(FP_Field(rs, fldname)

                die Funktion

                Function FP_FieldVal(rs, fldname)

                auf.

                Object required
                /_fpclass/fpdblib.inc, line 12

                Scheint sich dann auf die Zeile

                If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname))

                zu beziehen. Ich nehme mal an, daß das Recordset überhaupt nicht existiert.

                Wie öffnest Du denn das Recordset, bzw. woher stammt denn das Konstrukt "fp_rs"?

                Gruß
                Markus

                Beitrag melden
                –
                Informationen zu den Bewertungsregeln

                1. onload eines ASP - Recordsets...

                  Markus
                  – Informationen zu den Bewertungsregeln

                  Hallo,

                  FP_FieldVal(fp_rs,"Internet1")

                  ruft

                  Function FP_FieldVal(rs, fldname)

                  auf. Diese wiederum ruft mit

                  ...(FP_Field(rs, fldname)

                  die Funktion

                  Function FP_FieldVal(rs, fldname)

                  auf.

                  Object required
                  /_fpclass/fpdblib.inc, line 12

                  Scheint sich dann auf die Zeile

                  If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname))

                  zu beziehen. Ich nehme mal an, daß das Recordset überhaupt nicht existiert.

                  Wie öffnest Du denn das Recordset, bzw. woher stammt denn das Konstrukt "fp_rs"?

                  Gruß
                  Markus

                  Danke daß du dich so ausführlich mit meinem Problem beschäftigst!!

                  Dieser Recordset funktioniert schon weil ich ihn:

                  1. auf dieser ausgabeseite schon mal anwende um die Adresse anzuzeigen

                  2. ein Hyperlink in dieser Frameseite mit

                  <a href="<%=FP_FieldVal(fp_rs,"Internet1")%>" target="Rechts">

                  definiert ist der den Recordset im rechten Frame öffnet aber wollte das jetzt halt beim laden der linken Ausgebeseite automatisieren....

                  Hab ich noch ne Chance??

                  Glaube es liegt daran weil diese Funktion nur im Ergebnisbereich funktioniert aber nicht bei
                  <body onload...

                  und auch nicht

                  nach dem Ergenisbereich!

                  Hab dort jetzt mal einfach:

                  <%Response.write FP_FieldVal(fp_rs,"Internet1")%>

                  eingefügt u mal den <body> leer gelassen

                  war der gleiche effekt!

                  Wenn ich es innerhalb des Ergebnisbereichs probiert hab mit
                  <%Response.write FP_FieldVal(fp_rs,"Internet1")%>

                  hat er die Informationen einwandfrei hingeschrieben..

                  Wie könnt ich das auch auf den onload... ausweiten???

                  Danke
                  Ciao
                  Markus

                  wie ich grad probiert

                  Gl

                  Danke

                  Ciao
                  Markus

                  Beitrag melden
                  –
                  Informationen zu den Bewertungsregeln

                  1. onload eines ASP - Recordsets...

                    Markus Mühlich
                    – Informationen zu den Bewertungsregeln

                    Hallo,

                    »»Glaube es liegt daran weil diese Funktion nur im Ergebnisbereich
                    Was ist denn für Dich ein Ergenisbereich?

                    Wann wird denn
                    a) die Datei /_fpclass/fpdblib.inc in Deine Seite included?
                    b) die Datenbank geöffnet?
                    c) das Recordset geöffnet?

                    Die Reihenfolge muß auf jedenfall a,b,c sein. Erst dann kannst Du natürlich FP_FieldVal(fp_rs,"Internet1") auswerten.

                    Wenn das der Fall ist schreib mal FP_FieldVal(fp_rs,"Internet1") vor dem body-Tag in eine Variable:

                    <%myTest = FP_FieldVal(fp_rs,"Internet1")%>

                    Als nächstes führ mal die Funktion VarType - innerhalb des Bodys - aus:
                    <%=VarType(myTest)%>

                    Diese Funktion gibt einen Wert zurück der den Datentyp anzeigt. Mal sehen was daraus kommt.

                    Gruß
                    Markus

                    Beitrag melden
                    –
                    Informationen zu den Bewertungsregeln

                    1. onload eines ASP - Recordsets...

                      Markus
                      – Informationen zu den Bewertungsregeln

                      DANKE!

                      Ich habs jetzt geschaft mit!

                      <%
                      Response.write ("<body onLoad=""parent.frames['Mitte2'].location.href='" & FP_FieldVal(fp_rs,"Internet1") & "';"">")%>

                      allerdings hab ich diesen Teil eben unter die anderen scripten der Seite gesetzt und dem ganzen Formular u nun hat er den Bezug scheinbar aufbauen können!

                      Hab jetzt nur noch nen Problem das ich da noch gerne:

                      bgcolor=...

                      und noch ein

                      unonload..

                      wenn mann den linken Frame schließt daß sich dann auch wieder der rechte Frame durch ne andere Seite ersetzt!

                      Wie bau ich sowas noch in die schon lange Wurst ein???

                      Danke
                      ciao

                      Markus

                      Beitrag melden
                      –
                      Informationen zu den Bewertungsregeln

                      1. onload eines ASP - Recordsets...

                        Markus Mühlich
                        – Informationen zu den Bewertungsregeln

                        Hallo,

                        DANKE!

                        Bitte

                        Hab jetzt nur noch nen Problem das ich da noch gerne:

                        bgcolor=...

                        und noch ein

                        unonload..

                        Junge, Junge, Du kannst einen ganz schön beschäftigen (ich kann Dir ja mal meinen Stundensatz nennen ;-)

                        Tipp:

                        Bau Dir erst mal Deinen String in Klarschrift so auf wie er später auch in der Datei stehen soll. Danach baust Du diesen nach o.g. Beispiel(<selfaktuell/forum/?m=128801&t=24708>) Stück für Stück auf und ersetzt halt die bgcolor und alles andere dynamische durch entsprechend gefüllte Variablen.

                        Wenn Du dann noch ein Problem hast, kannst Du Dich ja noch mal melden.

                        Gruß
                        Markus

                        Beitrag melden
                        –
                        Informationen zu den Bewertungsregeln

          2. onload eines ASP - Recordsets...

            Markus
            – Informationen zu den Bewertungsregeln

            Wenn ich es jetzt wie ursprünglich mit:

            <%Response.write("body onload='parent.frames[1].location.href='" &  FP_FieldVal(fp_rs,"Internet1") & "';>'")%>

            mache bekomm ich dann folgende Fehlermeldung:

            Microsoft VBScript runtime error '800a01a8'

            Object required

            /_fpclass/fpdblib.inc, line 12

            Die Datei dazu sieht so aus:

            <%

            Function FP_FieldVal(rs, fldname)

            FP_FieldVal = Server.HTMLEncode(FP_Field(rs, fldname))
                if FP_FieldVal = "" then FP_FieldVal = " "

            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 = Server.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

            %>

            Was könnt ich da ändern damit es funktioniert???

            Wäre über eine Hilfe sehr dankbar!

            Danke

            Ciao
            Markus

            Beitrag melden
            –
            Informationen zu den Bewertungsregeln