Hjælp til fejlfinding

Det må være i disse linjer.?

Response.Write "(strContent)<br /><br />"
Response.Write "<a class='tlink' href='http://" & rs("Website") & "'>" & rs("Website") & "</a></div><br />"

I hvilken forstand mener du at der er en fejl: Hvad sker der? Hvad sker der ikke? Hvad forventede du der skulle ske? Får du nogen fejlbeskeder? Hvilke?

Istedet for at udskrive noget skriver den bare (strContent)

Ret:

Response.Write "(strContent)<br /><br />"

- til:

Response.Write strContent & "<br /><br />"

Mange tak :(
Gidder du smide et svar. ;~)

Svar :^)

Æhhh nu får jeg fejlen: Object required: 'tempConn'

Det er når jeg prøver at poste et indlæg, det er en gæstebog ;)

Det lader til at du forsøger at bruge en databaseforbindelse uden at have åbnet den.

Det forstår jeg ikke.? Jeg har tilføjet tilføjet et fejlt med navnet Website i min .mdb

Det er tempConn som ikke er sat til noget fornuftigt får at du forsøger at bruge den. Hvordan åbner du forbindelsen til din database før at du begynder at hente data ud via dit recordset - rs("Email"), rs("Navn") og rs("Website")?

Du spørger om noget jeg ikke ved et hak om, men her er hvad jeg har sat ind i koden neden for og ikke andet.

strWebsite = Trim(Request.Form("Website"))

<%
Session.LCID = 1030

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/xx/xxx.mdb") & ";UID=admin;PWD=;"

IP = Request.ServerVariables("REMOTE_ADDR")
FIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If ((FIP <> "") And (FIP <> "unknown")) Then
    IP = FIP
End If

If Request.Form("Gem") <> "" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strWebsite = Trim(Request.Form("Website"))
    strOverskrift = Trim(Request.Form("Overskrift"))
    strKommentar = Trim(Request.Form("Kommentar"))

if strOverskrift = "Overskrift" then
        strError = "<li>Du skal skrive en overskrift!</li>"
    if strnavn = "Navn" then
        strError = "<li>Du skal skrive dit navn!</li>"
end if
    ElseIf validateEmail(strEmail) = False Then
        strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
    ElseIf Len(strKommentar) = 0 Then
        strError = "<li>Du skal skrive en kommentar!</li>"
    End If

    If Len(strError) = 0 Then
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"

        rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs("Navn") = Server.HTMLEncode(strNavn)
            rs("Email") = Server.HTMLEncode(strEmail)
            rs("Website") = Server.HTMLEncode(strWebsite)
            rs("Overskrift") = Server.HTMLEncode(strOverskrift)
            rs("Kommentar") = Server.HTMLEncode(strKommentar)
            rs("Dato") = Now()
            rs("IP") = IP
            rs.Update
        End If
rs.Close
Set rs = Nothing
tempConn.close
Set tempConn = nothing

        Response.Redirect("gb.asp")

ja og så også:

rs("Website") = Server.HTMLEncode(strWebsite)

Prøv at ændre denne linje:

tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/xx/xxx.mdb") & ";UID=admin;PWD=;"

- til dette her:

connStr = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/xx/xxx.mdb") & ";UID=admin;PWD=;"
Dim tempConn
Set tempConn = Server.CreateObject("ADODB.Connection")
tempConn.Open connStr

1000 tak nielle.!!! det var det der skulle til :)

No prob :^)