🚀 go-pugleaf

hej alle sammen jeg vil h�re om der er nogen som kan hj�lpe mig med en lille 
fejl som jeg har med et script fejlen er

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/frames/opdater.asp, line 14

updateSQL = "UPDATE Adresser SET Fornavn = '" & fornavn &  "' WHERE Telefon 
=

filen hedder opdater.asp og indholdet er
mit ID felt bruger jeg Telefon
<HTML>
<HEAD>
</HEAD>
<BODY>

<%
' 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("../fpdb/database.mdb")
Conn.Open DSN

' SQL opdater
updateSQL = "UPDATE Adresser SET Fornavn = '" & fornavn &  "' WHERE Telefon 
=
Conn.Execute(strSQL)


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
den anden film som hedder rediger ser s�dan ud

<HTML>
<HEAD>
</HEAD>
<BODY>

<%
' 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("../fpdb/database.mdb")
Conn.Open DSN

' SQL sletter record
strSQL = "select * from Adresser order by Fornavn"
Conn.Execute(strSQL)

Set rs = Conn.Execute(strSQL)

Do


%>

<form action="opdater.asp" method="post">
<input type="text" value="<% response.write rs("Fornavn")%>"name="Fornavn">
<input type="hidden" name="Telefon" value="<%= rs("Telefon") %>">
<input type="submit" value="Opdater">
</form>

<%

rs.MoveNext

Loop While Not rs.EOF


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>



</BODY>
</HTML>
hilsen jeppe