Avatar billede cdc Novice
02. juli 2007 - 18:25 Der er 4 kommentarer og
1 løsning

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>&nbsp;<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")
%>
Avatar billede keysersoze Ekspert
02. juli 2007 - 18:35 #1
<%
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)
    set rstemp=nothing
    Conn.Close
    set conntemp=nothing
   
    response.redirect ("minside.asp")
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")
    set rstemp=nothing
    Conn.Close
    set conntemp=nothing
end if
%>
Avatar billede cdc Novice
02. juli 2007 - 18:56 #2
tak for det :o) Giver du lige et svar

//cdc
Avatar billede keysersoze Ekspert
02. juli 2007 - 19:36 #3
svar :)
Avatar billede keysersoze Ekspert
02. juli 2007 - 19:36 #4
hov...
Avatar billede cdc Novice
02. juli 2007 - 19:42 #5
sådan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester