problemer med at lave response.redirect ("minside.asp")
Har dette script og vil have det i midten hvor der står: siden er opdateret til at redirecte siden i stedet (response.redirect ("minside.asp")), men får det ikke til at funke. Er det et klogt hoved her inde der kan hjælpe :o)//cdc
<%
if request("mode") = "gem" then
set conn = server.createobject("ADODB.connection")
path = ("xxxxxx.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
tekst = Replace(request.form("tekst"),vbCrLf, "<br>")
overskrift = Replace(request.form("overskrift"),vbCrLf, "<br>")
infotekst = Replace(request.form("infotekst"),vbCrLf, "<br>")
SQL="UPDATE kanin SET "
SQL = SQL & "overskrift='" & overskrift & "', "
SQL = SQL & "tekst='" & tekst & "', "
SQL = SQL & "infotekst='" & infotekst & "'"
SQL = SQL & " where ID =" & session("EditID")
Set RS = Conn.Execute(SQL)
%>
<td width="100%" bordercolor="#FFFFFF"><font size="5" color="#AA0000">Siden er opdateret...?</font><br>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img border="0" src="back_pil.gif"></td>
<td> <a href="index.asp" target="_top">Tilbage til menu</a></td>
</tr>
</table>
<%
set rstemp=nothing
Conn.Close
set conntemp=nothing
else
set conn = server.createobject("ADODB.connection")
path = ("xxxxxx.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from kanin where id = " & Request.Querystring("ID")
set RS = Conn.Execute(SQL)
Session("overskrift") = RS("overskrift")
Session("tekst") = RS("tekst")
Session("infotekst") = RS("infotekst")
Session("editID") = Request.Querystring("ID")
%>
