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
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
%>