Url syntaks ?????
HejJeg kan ikke få min redirection til at virke.
Jeg har lavet en if sætning som redirecter
brugeren så brugeren kommer tilbage til hvor
brugeren kom fra.
Jeg bliver ved med at få samme fejl ....
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/flash/forum/retur.asp, line 70
url=response.write "http://iceb.ljnet.dk/flash/forum/emner.asp?id=request.form("katid")"
-------------------^
KODEN:
<%
Dim td
td=(request.form("tiddato"))
Dim bn
bn=(request.form("brugernavn"))
Dim e
e=(request.form("emne"))
Dim b
b=(request.form("besked"))
Dim si
si=(request.form("svarid"))
Dim ki
ki=(request.form("katid"))
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "insert into forum (kategori, emne, besked, brugernavn, tiddato, svarid) values (" & ki & ", '" & e & "', '"& b &"','"& bn &"', #"& td &"#, "& si &" )"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
' Udskriv værdien af kolonnen Fornavn og fødselsdato
' Gå til næste Record i rs
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
request.form ("svarid")
if request.form("svarid")=0 then
url=response.write "http://iceb.ljnet.dk/flash/forum/emner.asp?id=request.form("katid")"
else
url=response.write "http://iceb.ljnet.dk/flash/forum/indhold.asp?id=request.form("svarid")"
end if
response.write url
%>
<html>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="5;URL=<% response.write url%>">
</HEAD>
<body>
<br><br>
<br><br>
Luk dette vindue <a href="java script: self.close()">her</a>
</body>
</html>
LINK/ UDFYLD FORMULAREN OG SEND FOR AT TESTE:
http://iceb.ljnet.dk/flash/forum/svarny.asp?svarid=0&katid=22
