"Frederik Østeraa" <frederik@oesteraa.dk> wrote in message
news:bf6l29$f2r$1@sunsite.dk...
> "Lars Ridder" <ridder@e-privat.dk> skrev i en meddelelse
> news:bf6ep3$nev$1@sunsite.dk...
> > Når jeg skal skrive til denne gæstebog:
> >
http://www.belcanto.dk/copytest.asp
> > får jeg følgende fejlmeddelelse, når der videresendes til selve
> > gæstebogen:
> >
> > Response object error 'ASP 0156 : 80004005'
> > Header Error
> > /submit2.asp, line 50
> >
> > The HTTP headers are already written to the client browser. Any
> > HTTP header modifications must be made before writing page
> > content.
> >
> > Kan nogen hjælpe mig med det?
> >
>
> Jaaa..
> Hvis du poster koden inden linie 50 kan jeg godt rette den for dig.
> Men du kan da også bare selv gøre det, du kan i ovenstående tråd se
hvorfor
> du får fejlen :)
>
> Mvh
> Frederik Østeraa
>
>
Jeg kan ikke umiddelbart se, hvorfor fejlen opstår.
(Dette er mit første forsøg på ASP, så hav tålmodighed)
Jeg har ingen "if"-definitioner i mit dokument som i tråden ovenfor.
Her kommer hele koden: (Har dog ændret stien til databasen, så ingen får
lyst til at lege!)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Submit test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Function DanskDatoTid(dato)
arrDag = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
arrDag = Split(arrDag,",")
arrMaaned =
",januar,februar,marts,april,maj,juni,juli,august,september,oktober,november
,december"
arrMaaned = Split(arrMaaned,",")
DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " " & Day(dato) & ". " &
arrMaaned(Month(dato)) & " " & Year(dato) & " - kl. " & FormatDateTime(dato,
vbShortTime)
End Function
' Define variables
Dim objConnection, strDSN, strSQL
' Create database object
Set objConnection = Server.CreateObject("ADODB.Connection")
' Create connection string
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("/database/database.mdb")
' Connect to database
objConnection.Open strDSN
com=Request("comment")
com = Replace(com,"'","'")
com = Replace(com,"<","<")
com = Replace(com,">",">")
com = Replace(com,""",""")
' Create SQL string
strSQL = "INSERT INTO beskeder (firstname, homepage, email, bosted, tid,
comment) VALUES ('" & Request("firstname") & "','" & "http://" &
Request("homepage") & "','" & Request("email") & "','" & Request("bosted") &
" " & "','" & DanskDatoTid(Now) & "','" & com & "')"
objConnection.Execute(strSQL)
' Close connection
objConnection.Close
Set objConnection = Nothing
Response.Redirect("guest.asp")
%>
</body>
</html>
Ellers tak for svaret.