irri fejl help me...

Hey...

Jeg får flg. fejl når jeg tester mit lille indsæt script (en del af en kommende tagwall, dataerne bliver sendt fra et par forms på tilfoj.asp siden):

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/asp/tagwall/indsaet.asp, line 43

Her er min kode:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/asp/tagwall/tagwall.mdb")
Conn.Open DSN

Dim Navn, Email, Hjemmeside, Besked
Navn = Request.Form("Navn")
Navn = Replace(Navn, "<", "&lt;")
Navn = Replace(Navn, ">", "&gt;")
Email = Request.Form("Email")
Email = Replace(Email, "<", "&lt;")
Email = Replace(Email, ">", "&gt;")
Hjemmeside = Request.Form("Hjemmeside")
Hjemmeside = Replace(Hjemmeside, "<", "&lt;")
Hjemmeside = Replace(Hjemmeside, ">", "&gt;")
Besked = Request.Form("Besked")
Besked = Replace(Besked, "<", "&lt;")
Besked = Replace(Besked, ">", "&gt;")

If Navn = "" AND Besked = "" Then
Response.Redirect "tilfoj.asp?fejl=0"
Else if Navn = "" Then
Response.Redirect "tilfoj.asp?fejl=1"
Else if Besked = "" Then
Response.Redirect "tilfoj.asp?fejl=2"
End if

strNavn = Navn
strEmail = Email
strHjemmeside = Hjemmeside
strBesked = Besked
strIp = Request.Servervariables("Remote_Addr")
strDato = Now

strSQL = "Insert into Tagwall (Navn, Email, Hjemmeside, Besked, Ip, Dato) values('" & strNavn & "', '" & strEmail & "', '" & strHjemmeside & "', '" & strBesked & "', '" & strIp & "', '" & strDato & "')"

Conn.Execute(strSQL)


Conn.Close
Set Conn = Nothing

%>

Har prøvet ret meget men kan s** ikke finde ud af hvad det End der det er !
Håber i kan :)



Ralle