Her er hele min kode:
<!-- #include file="../../Administrator/protectadm.inc" -->
<!-- #include file="../../subrutiner.asp" -->
<html>
<!-- Minus AutoDato -->
<title>Ret hovedmenu dokument</title>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<LINK HREF="../../../Stylesheets/Stylesheet.css" REL="stylesheet" TYPE="text/css">
</head>
<body>
<table>
<tr>
<td width="95%" align="center"><h1>Ret Hovedmenudokument</h1></td>
<td width="5%" align="center" valign="middle"><IMG SRC="../../../Images/RB-momblnk.gif" BORDER="0" WIDTH="100" HEIGHT="86" ALIGN="bottom" ALT=""></td>
</tr>
</table>
<%
sWhat = trim(Request("ID"))
sPageAction = trim(Request("Action"))
sHovedmenunavn = Trim(Request.Form("Hovedmenunavn"))
sOverskrift = Trim(Request.Form("Overskrift"))
sTekst = Trim(Request.Form("Tekst"))
if lcase(sPageAction) = "" then
LoadVars
ShowEditor
end if
if lcase(sPageAction) = "save" then
SaveVars
ShowOk
end if
Sub ShowEditor
%>
<FORM METHOD="POST" ACTION="rethovedmenudokument.asp?action=save&ID=<% Response.Write(sWhat) %>">
<table border="0">
<tr>
<td width="50%">
<TABLE BORDER="2" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#C0C0C0" BORDERCOLORDARK="#C0C0C0" BORDERCOLORLIGHT="#C0C0C0">
<TR>
<TD valign="middle" class="H4"><b>Hovedmenu navn</b></TD>
<TD><INPUT TYPE="text" NAME="Hovedmenunavn" SIZE="30" VALUE="<% Response.WRite(sHovedmenunavn) %>"></TD>
</TR>
<TR>
<TD valign="middle" class="H4"><b>Overskrift</b></TD>
<TD><INPUT TYPE="text" NAME="Overskrift" SIZE="30" VALUE="<% Response.WRite(sOverskrift) %>"></TD>
</TR>
<TR>
<TD valign="top" class="H4"><b>Tekst</b></TD>
<td><textarea name="Tekst" rows="20" cols="53"><% Response.WRite Replace(rs("sTekst"),vbCrlf,"<br>") %> </textarea></td>
</TR>
</TABLE>
<BR><BR>
<INPUT TYPE="submit" VALUE="Gem"> <INPUT TYPE="reset" Value="Fortryd"><BR>
</FORM>
</td>
<td width="5%"></td>
<td width="45%" align="left" valign="top" class="H4"><br></td>
</tr>
</table>
<p>
<A HREF="../dokumentoversigt.asp">Retur til Hovedmenu oversigten</A><br>
<A HREF="../../Administrator/adm.asp">Retur til hovedmenu</A><br>
<%
End Sub
Sub LoadVars
opencon
call ChooseTableWhere ("Dokumenter", "Hovedmenunavn", sWhat)
if rs.bof = true and rs.eof = true then
Response.Write("<font color=red>Record not found!")
else
do until rs.eof = true
if lcase(cstr(rs.fields("Hovedmenunavn").value)) = lcase(cstr(sWhat)) then
sHovedmenunavn = Rs.Fields("Hovedmenunavn").value
sOverskrift = Rs.Fields("Overskrift").value
sTekst = Rs.Fields("Tekst")
exit do
end if
rs.movenext
Loop
end if
closecon
End Sub
Sub SaveVars
opencon
call ChooseTableWhere ("Dokumenter", "Hovedmenunavn", sWhat)
if rs.bof = true and rs.eof = true then
Response.Write("Record not found!")
else
do until rs.eof = true
if lcase(cstr(rs.fields("Hovedmenunavn").value)) = lcase(cstr(sWhat)) then
Rs.Fields("Hovedmenunavn").value = sHovedmenunavn
Rs.Fields("Overskrift").value = sOverskrift
Rs.Fields("Tekst").value = sTekst
rs.UpdateBatch adAffectAll
exit do
end if
rs.movenext
Loop
end if
closecon
End Sub
Sub ShowOK
%>
<h4><B>Ændringerne er gemt</B></h4><p>
<A HREF="../dokumentoversigt.asp">Retur til Hovedmenu oversigten</A><br>
<A HREF="../../Administrator/adm.asp">Retur til hovedmenu</A><br>
<%
end Sub
%>
</body>
</html>
Fejlen - når jeg sætter den ind i selve formen - altså ved textarea er:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'rs'
/Administration/Dokumenter/Hovedmenu/rethovedmenudokument.asp, line 55
