mailingliste
Hej Eksperter-
Jeg har et problem med en mailingliste.
Jeg har en fil som hedder mailingliste.asp hvis kode ser ud som følger:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
if request(\"password\") = \"test\" then
session(\"login\") = \"ok\"
end if %>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<link HREF=\"faaborg.css\" REL=\"stylesheet\" TYPE=\"text/css\">
<title></title>
</head>
<script language=\"JavaScript\">
function co(element,mode) {
if (mode==\"in\") {
cursortype = \'hand\'
colorval = \'#E7E3DE\'
} else if (mode==\"out\") {
cursortype = \'\'
colorval = \'#A4B5C6\'
}
element.style.background=colorval;
element.style.cursor=cursortype;
}
</script>
<body bgcolor=\"#65809A\">
<%
if request(\"mode\") = \"1\" then
SQL = \"INSERT INTO mailingliste ( navn, email ) values (\'\" & request(\"navn\") & \"\', \'\" & request(\"email\") & \"\')\"
\'response.write (SQL)
conn.execute (SQL)
response.write \"<BR><FONT FACE=\'Arial\' SIZE=\'3\' COLOR=\'#000000\'><STRONG><CENTER>Du er nu blevet tilmeldt mailinglisten.</CENTER></STRONG></FONT>\"
else
end if %>
<div align=\"center\">
<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"80%\" height=\"460\" bgcolor=\"#E7E3DE\">
<tr>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'svin/index.html\';\" width=\"99\" height=\"19\" align=\"center\" style=\"padding: 2\" colspan=\"2\" class=\"tdmnu\" <a href=\"svin/index.html\"> Løsninger
til svin</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'kvaeg/index.html\';\" width=\"105\" height=\"19\" align=\"center\" style=\"padding: 2\" class=\"tdmnu\" <a href=\"kvaeg/index.html\"> Løsninger
til kvæg</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'gulv/index.html\';\" width=\"105\" height=\"19\" align=\"center\" style=\"padding: 2\" class=\"tdmnu\" <a href=\"gulv/index.html\">Gulvløsninger</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'stald/index.html\';\" width=\"103\" height=\"19\" align=\"center\" style=\"padding: 2\" class=\"tdmnu\" <a href=\"stald/index.html\">Staldindretning</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'beton/index.html\';\" width=\"103\" height=\"19\" align=\"center\" style=\"padding: 2\" class=\"tdmnu\" <a href=\"beton/index.html\">Betonbeskyttelse</td>
<td onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" onClick=\"location.href=\'index.html\';\" width=\"98\" height=\"19\" align=\"center\" style=\"padding: 2\" class=\"tdmnulast\" <a href=\"index.html\">Start</td>
</tr>
<tr>
<td height=\"23\" colspan=\"7\" width=\"636\" class=\"tdstatus\">Her er du :
<a href=\"http://www.faaborg-dk.dk\">faaborg-dk.dk</a>
<img border=\"0\" src=\"graf/2.navig.arrow.white.gif\" width=\"11\" height=\"7\">
nyhedsbrev
</td>
</tr>
<tr>
<td style=\"padding: 0\" width=\"94\" class=\"tddummy\" valign=\"top\" height=\"499\"><img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><a href=\"hvem.html\">Hvem
er vi ?</a><br>
<img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><a href=\"vaerdi.html\">Værdier</a><br>
<img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><a href=\"forhand.html\">Forhandlere</a><br>
<img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><a href=\"kontakt.html\">Kontakt os<br>
</a>
<img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><b><a href=\"nyheder.html\">Nyheder<br>
</a></b>
<img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><a href=\"mailingliste.asp\">Nyhedsbrev<br>
</a>
</td>
<td style=\"padding: 2\" rowspan=\"2\" valign=\"top\" align=\"left\" width=\"3\" height=\"500\">
</td>
<td height=\"499\" colspan=\"5\" width=\"509\" class=\"tdmain\" valign=\"top\">
<p>Kunne du tænke dig at modtage et nyhedsbrev, når der kommer
opdateringer på disse sider, eller når der i øvrigt er nyheder om
firmaet?<br>
Så tilmeld dig vores nyhedsbrev her<br>
<form action=\"mailingliste.asp\" METHOD=\"POST\">
<input type=\"hidden\" name=\"mode\" VALUE=\"1\">
Navn<br>
<input type=\"text\" name=\"navn\" size=\"20\" class=\"input\"><br>
Email adresse<br>
<input type=\"text\" name=\"email\" size=\"20\" class=\"input\"> <img border=\"0\" src=\"blank.gif\"><a href=\"mailingliste.asp\"></a><input type=\"submit\" value=\"Tilmeld\" class=\"input\"></form>
<br>
<FORM NAME=\"login\" METHOD=\"post\">
<INPUT TYPE=\"password\" NAME=\"password\" size=\"20\" class=\"input\"><img border=\"0\" src=\"blank.gif\">
<input type=\"submit\" value=\"Login \"class=\"input\"> (Kun for systemadministrator)
</FORM>
<% end if
if session(\"login\") = \"ok\" then
if request(\"mode\") = \"slet\" then
SQL = \"DELETE FROM mailingliste where id =\"& request(\"id\")
conn.execute (SQL)
end if %>
<%
SQL = \"SELECT * from mailingliste\"
set slet = conn.execute( SQL )
do while not slet.eof
on error resume next %>
<TR>
<TD>
<FONT FACE=\"Arial\" SIZE=\"3\" COLOR=\"#000000\">
<A HREF=\"mailingliste.asp?id=<% = slet(\"id\") %>&mode=slet\">Slet</A>
</TD>
<TD>
<FONT FACE=\"Arial\" SIZE=\"3\" COLOR=\"#000000\">
<% = slet(\"navn\") %>
</FONT>
</TD>
<TD>
<FONT FACE=\"Arial\" SIZE=\"3\" COLOR=\"#000000\">
<% = slet(\"email\") %>
</FONT>
</TD>
</TR>
<%
slet.movenext
loop %>
</TABLE>
<% conn.close
end if
%>
<img border=\"0\" src=\"blank.gif\" width=\"10\" height=\"14\"><a href=\"mailingliste.asp\"></a>
<p> </p>
</center>
<table>
<tr>
<td style=\"padding: 0\" width=\"94\" class=\"tddummy\" height=\"1\">
</td>
<td height=\"1\" colspan=\"5\" width=\"509\" class=\"tdmain\" valign=\"top\">
</td>
</tr>
<tr>
<td class=\"tdfoot\" height=\"1\" colspan=\"7\" align=\"center\">FAABORG
- L. Frandsensvej 4 - DK-5600 Faaborg - Tel. (0045) 62 61 83 33<br>
Fax (0045) 62 61 73 33 - e-mail: <a href=\"mailto:frandsen@l-frandsen.dk\">frandsen@l-frandsen.dk</a>
- <a href=\"www.faaborg-dk.dk</a>" target="_blank">http://www.faaborg-dk.dk\">www.faaborg-dk.dk</a>
</td>
</tr>
<p> </p>
</body>
</HTML>
!!!!
Fejlmeldingen er \"En sætning var ventet\"
/faaborg/mailingliste.asp, linje 93
