placering af response.redirect ("index.asp") i min kode
Er det en der kan placere response.redirect ("index.asp")ind i min kode, da den kommer op med << Siden er opdateret >>, og det vil jeg ikke ha?
<%
if request("mode") = "gem" then
set conn = server.createobject("ADODB.connection")
path = ("x.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 pro 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">
<p class="dhtmlBold"><font size="5" color="#294A7B">Siden er opdateret
...?
</font>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img border="0" src="../../../../hgk_online/email/admin/images/link_back.gif"></td>
<td><p class="copy"> <a href="index.asp" target="_top">Tilbage til menu</a></td>
</tr>
</table>
<p class="dhtmlBold"><%
set rstemp=nothing
Conn.Close
set conntemp=nothing
else
set conn = server.createobject("ADODB.connection")
path = ("x.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from pro 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")
%>
