Hjælp søges til denne fejlmeddelse
Jeg har en side som laver denne fejl hele tiden---------------
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/modul/person_aendre.asp, line 122
--------------------
Her er min kode
--------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/test.asp" -->
<%
Dim rsPerson__MMColParam
rsPerson__MMColParam = "1"
If (Request.QueryString("HvemerviID") <> "") Then
rsPerson__MMColParam = Request.QueryString("HvemerviID")
End If
%>
<%
Dim rsPerson
Dim rsPerson_numRows
Set rsPerson = Server.CreateObject("ADODB.Recordset")
rsPerson.ActiveConnection = MM_Kitchnkool1_STRING
rsPerson.Source = "SELECT * FROM Hvemervi WHERE HvemerviID = " + Replace(rsPerson__MMColParam, "'", "''") + ""
rsPerson.CursorType = 0
rsPerson.CursorLocation = 2
rsPerson.LockType = 1
rsPerson.Open()
rsPerson_numRows = 0
%>
<html>
<head>
<title>[ KITCHNKOOL ]</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#660000">
<table width="760" height="95%" border="0" align="center" cellpadding="0" cellspacing="0" topmargin="0">
<tr>
<td background="/gfx/modul_13.gif"> </td>
<td valign="top" bgcolor="#ffffcc"><table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <div align="center"><br>
<span class="modulrod">Opdater <%=(rsPerson.Fields.Item("Fornavn").Value)%></span></div>
<form name="form1">
<table width="700" border="0" cellpadding="0" cellspacing="0" class="rodtekst">
<tr>
<td width="100">Fornavn:</td>
<td width="300"> <input type="text" name="Fornavn" value="<%=(rsPerson.Fields.Item("Fornavn").Value)%>" size="30"></td>
<td width="1" rowspan="6" bgcolor="#660000"> </td>
<td width="100">Billedelille1:</td>
<td width="50"> <div align="center">
<% If rsPerson.Fields.Item("Billedelille1").Value <> "" Then %>
<img src="../gfx/billede_ja.jpg" border="0" align="middle">
<% Else %>
<img src="../gfx/billede_nej.jpg" border="0" align="middle">
</div></td>
<td width="50"><div align="center">Nyt</div></td>
<td width="50"><div align="center">Ændre</div></td>
<td width="50"><div align="center">Slet</div></td>
</tr>
<tr>
<td width="100">Efternavn:</td>
<td width="300"> <input type="text" name="Efternavn" value="<%=(rsPerson.Fields.Item("Efternavn").Value)%>" size="30">
</td>
<td width="100">Billedetekst1:</td>
<td width="200" colspan="4"> <div align="right">
<input type="text" name="Billedetekst1" value="<%=(rsPerson.Fields.Item("Billedetekst1").Value)%>" size="30">
</div></td>
</tr>
<tr>
<td width="100">Uddannelse:</td>
<td width="300"> <input type="text" name="Uddannelse" value="<%=(rsPerson.Fields.Item("Uddannelse").Value)%>" size="30"></td>
<td width="100">Kodeord:</td>
<td width="200" colspan="4"> <div align="right">
<input type="text" name="kodeord" value="<%=(rsPerson.Fields.Item("kodeord").Value)%>" size="30">
</div></td>
</tr>
<tr>
<td width="100" valign="top">Efaring:</td>
<td width="300"> <textarea name="Efaring" cols="30" rows="4" id="Efaring"><%=(rsPerson.Fields.Item("Efaring").Value)%></textarea></td>
<td width="100" valign="top">Password:</td>
<td width="200" colspan="4" valign="top"> <div align="right">
<input type="password" name="Password" value="<%=(rsPerson.Fields.Item("Password").Value)%>" size="30">
</div></td>
</tr>
<tr>
<td width="100" height="20">Email:</td>
<td width="300"> <input type="text" name="Email" value="<%=(rsPerson.Fields.Item("Email").Value)%>" size="30"></td>
<td width="100"> </td>
<td width="200" colspan="4"> <div align="right">
<input type="text" name="Billedelille1" value="<%=(rsPerson.Fields.Item("Billedelille1").Value)%>" size="30">
</div></td>
</tr>
<tr>
<td width="100" valign="top">Brodtekst:</td>
<td width="300"> <textarea name="Brodtekst" cols="30" rows="5" id="Brodtekst"><%=(rsPerson.Fields.Item("Brodtekst").Value)%></textarea>
</td>
<td width="100"> </td>
<td width="200" colspan="4" valign="bottom"> <div align="right">
<input name="submit" type="submit" value="Opdater">
</div></td>
</tr>
</table>
<input type="hidden" name="Billedestor1" value="<%=(rsPerson.Fields.Item("Billedestor1").Value)%>" size="32">
<input type="hidden" name="Level" value="<%=(rsPerson.Fields.Item("Level").Value)%>" size="32">
<input type="hidden" name="HvemerviID" value="<%=(rsPerson.Fields.Item("HvemerviID").Value)%>" size="32">
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%= rsPerson.Fields.Item("HvemerviID").Value %>">
</form>
<p> </p>
<p> </p></td>
</tr>
</table>
</td>
<td background="/gfx/modul_15.gif"> </td>
</tr>
<tr>
<td width="30" height="22" background="/gfx/modul_16.gif"> </td>
<td background="/gfx/modul_17.gif"> </td>
<td width="30" height="22" background="/gfx/modul_18.gif"> </td>
</tr>
</table>
</body>
</html>
<%
rsPerson.Close()
Set rsPerson = Nothing (Dette er line 122)
%>
-------------------
