Expected 'End'

hvad er der galt med mine statements??

<!-- #include file="session.asp" -->
<!-- #include file="inc_tid.asp" -->
<!-- #include file="inc_regtegn.asp" -->

<%
request.form("tekst")=tegn(request.form("tekst"),"'","''")
request.form("tekst")=tegn(request.form("tekst"),"<","&lt;")
request.form("tekst")=tegn(request.form("tekst"),">","&gt;")

request.form("overskrift")=tegn(request.form("overskrift"),"'","''")
request.form("overskrift")=tegn(request.form("overskrift"),"<","&lt;")
request.form("overskrift")=tegn(request.form("overskrift"),">","&gt;")

q = ((((year(now)*12+month(now))*31+day(now))*24+hour(now))*60+minute(now))*60+second(now)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=xxx; Database=xxx; UID=xxx; PWD=xxx;"

a=Request.Querystring("traad")

if a<>"nytraad" then



'POSTER TIL ALLEREDE EKSISTERENDE TRÅD



set sr = conn.execute("select * from forum order by id desc")
if not sr.EOF then
id = sr("id") + 1
else
id = 1
end if

Conn.Execute("Insert into forum (id,oprettet,forfatter,overskrift,traad,tekst,posttid) values (" & id & ",'" & tid(now) & "','" & Session("navn") & "','" & Request.Form("overskrift") & "','" & a & "','" & Request.Form("tekst") & "', '" & q & "')")

Conn.Execute("Update traad set seneste = '" & tid(now) & "', senestenow = " & q & " Where id = '" & a & "'")



Response.redirect "forum.asp?traad=" & a

else



'OPRETTER NY TRÅD



set sr = conn.execute("select * from traad order by id desc")
if not sr.EOF then
idt = sr("id") + 1
else
idt = 1
end if

Conn.Execute("Insert into traad (id,forfatter,seneste,senestenow,poster,traad) values ("& idt & ",'" & Session("navn") & "','" & tid(now) & "'," & q & ",'" & session("navn") & "','" & request.form("overskrift") & "')")

set sr = conn.execute("select * from forum order by id desc")
if not sr.EOF then
id = sr("id") + 1
else
id= 1
end if

Conn.Execute("Insert into forum (id,oprettet,forfatter,overskrift,traad,tekst,posttid) values ("& id & ",'" & tid(now) & "','" & Session("navn") & "','" & Request.Form("overskrift") & "','" & idt & "','" & Request.Form("tekst") & "', '" & q & "')")

Response.redirect "forum.asp"

end if

Conn.Close
Set Conn = Nothing
%>