hvis jeg bruger
Response.Redirect("debat.asp?id="& request("id"))
skriver den navnet findes i databasen ....det er pga af koden i fil 2, men jeg ved ikke lige hvorfor den gør det pga af ændrigen i Response.redirect.
Kode på fil 2:
<%
Response.Buffer = True
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/debat.mdb")
Conn.Open DSN
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("navn") <> "" AND Request.Form("overskrift") <> "" AND Request.Form("besked") <> "") then
'Tilføjer til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from traad where overskrift = '" & Request("overskrift") & "'"
rs.Open strsql, conn, 1, 3
if rs.eof or rs.BOF then
'Tilføjer til databasen
rs.AddNew
rs("dato") = Server.HTMLEncode(Request("dato"))
rs("navn") = Server.HTMLEncode(Request("navn"))
rs("overskrift") = Server.HTMLEncode(Request("overskrift"))
rs("besked") = Server.HTMLEncode(Request("besked"))
rs("typeID") = Server.HTMLEncode(Request("typeID"))
rs.update
Response.Redirect("debat.asp?id="& request("id"))
else
'Skriver at navnet er optaget
Response.Write("<font color='red'>Navnet findes i forvejen i databasen</font><br /> <a href='opret.asp'>Tilbage</a><br />")
end if
rs.Close
set rs = nothing
else
Response.Write("<font color='red'>Der var fejl i dine indtastninger</font><br /><a href='opret.asp'>Tilbage</a><br /><br>")
end if
end if
Conn.Close
Set Conn = Nothing
%>
