Scripts fejler på PWS
Jeg har en samling scripts som henter data fra en db. Det fungerer fint på min udbyders webserver, men når jeg kører de samme scrips på min bærbare pc over PWS, så laver den fejl. Fejlen forekommer på de scripts, som har en Response.Redirect.Fejlmeldingen ser sådan ud
Response-objekt fejl 'ASP 0156 : 80004005'
Headerfejl
/bilerpaavestfyn/login2.asp, linje 33
HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.
Fejlen forekommer bl.a. på dette script.
<%
' bruges til at tjekke om brugeren finde i db ved login
' Sender resultaterne fra tilføj links til databasen
' Database connection
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/bilerpaavestfyn/riishojwebsoft.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
strUsername = Trim(Replace(Request.Form("username"),"'",""))
strPassword = Trim(Replace(Request.Form("password"),"'",""))
strSQL ="SELECT * FROM login WHERE UCase(username) = '" & UCase(strUsername) & "' AND UCase(Password) = '" & UCase(strPassword) & "'"
set rs = Conn.execute(strSQL)
if not rs.EOF then
response.write rs("username")
end if
'først tjekke om brugeren findes ved at tjekke om recordsetet er tomt.
if not rs.EOF then
if LCase(rs("username")) = LCase(strUsername) then
'LOGIN OK
session("brugernavn") = LCase(strUsername)
session("brugerID") = rs("Id")
Response.Redirect("index2.asp")
else
'INGEN BRUGER FUNDET
'Eller en blev fundet men databasen bruger navn passer ikke med det
'indtastede brugernavn
end if
else
'brugeren ikke fundet lave det som skal ske hvis brugeren ikke er fundet her
response.write "Forkert password eller brugernavn, prøv igen."
end if
Conn.Close
Set Conn = Nothing
%>
Linje 33 er
Response.Redirect("index2.asp")
Hvorfor virker det ikke på PWS'en?
