11. september 2004 - 18:11
Der er
5 kommentarer og 1 løsning
vis oprettet
Hejsa Når jeg oprettet et nyt indlæg, så har jeg i bunden af min gem fil en response.redirect, som bare sender en til oversigts siden. hvordan laver jeg sådan at man kommer til det indlæg som man lige har oprettet. Ligesom når man opretter et indlæg i forummet her på experten. Venligst Mark Zweidorff
Annonceindlæg fra Deloitte
11. september 2004 - 18:16
#1
den redirect som du bruger til at sende til oversigt siden, der vælger du bare den skal sende til det nu gerne vil have.. Men jeg kan ikke se din kode, men der skal nok et id eller noget med i den redirect
11. september 2004 - 18:18
#2
<% on error resume next If not ((session("adgangsniveau") = 3) OR (session("adgangsniveau") = 1)) then response.redirect "main.asp?error=Fejl, du er ikke logget ind!" end if dim SQL, conn, rs, strDSN, strFornavn, strEfternavn, strGade, strGadenr, strPostnr, strBy, strTlf, strmob, strInvi, strType, strMony, strNote, strKon, strbaggrund, strrefid, strpartyday, strsats strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database\sys.mdb") set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strDSN set rs = Server.CreateObject("ADODB.Recordset") strfornavn=Request("fornavn") strefternavn=Request("efternavn") strgade=Request("gade") strgadenr=Request("gadenr") strpostnr=Request("postnr") strby=Request("by") strtlf=Request("tlf") strmob=Request("mob") strinvi=Request("invi") strtype=Request("type") strmony=Request("mony") strnote=Request("note") strkon=Request("kon") strbaggrund=Request("baggrund") strrefid=Request("refid") strpartyday=Request("partyday") strsats=Request("sats") SQL = "SELECT * FROM listen" rs.Open SQL,Conn,2,3 rs.AddNew rs("fornavn") = strFornavn rs("efternavn") = strEfternavn rs("gade") = strGade rs("gadenr") = strGadenr rs("postnr") = strPostnr rs("by") = strBy rs("tlf") = strTlf rs("mob") = strmob rs("invi") = strInvi rs("type") = strType rs("mony") = strMony rs("note") = strNote rs("kon") = strKon rs("baggrund") = strbaggrund rs("refid") = strrefid rs("partyday") = strpartyday rs("sats") = strsats rs.Update rs.Close Conn.Close Response.Redirect("Listen.asp?error2=Profilen er nu oprettet!") if err.number <> 0 then response.write err.description end if %>