Fejl i Nyhedsbrev
jeg for en fejl i linie 25 den med (else) hvad gør jeg forkert<%
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>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
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
%>
<CENTER>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2">
<form action="mailingliste.asp" METHOD="POST">
<input type="hidden" name="mode" VALUE="1"><br>
<tr>
<td width="14" class="vertline" background='2c73fc43.JPG"'>
<img border="0" src="images/2c73fc43.JPG"></td>
<td valign="top" style="padding:15px; BACKGROUND-IMAGE: url('/images/navline_drop_white.gif');BACKGROUND-REPEAT: repeat-x" width="534"><!-- P:Begin -->
<h1><u>Nyhedsbrev</u></h1>
<p>Nyhedsbrevet på lkongen.dk vil jævnligt blive udsendt. Der er ikke nogen fast dag eller tidspunkt for udsendelsen, det kommer når der er nyt på banen. Man kan på et hvilket som helst tidspunkt afmelde nyhedsbrevet igen.</p>
<p>Lkongen's nyhedsbrev indeholder typisk informationer om dette websites udvikling samt præsentation af nye artikler, downloads, services etc.</p>
<p>
<strong>Tilmeld/Afmeld Nyhedsbrev</strong><br><input type="text" name="Email" size="30" onFocus="select()" value="Skriv din e-mail adresse her">
<input type="submit" value="-- Tilmeld --" ID="Submit1">
<input type="submit" value="- Afmeld -" ID="Submit2"><!-- P:End --></td>
</TD>
</TR>
</form>
</TABLE>
<FORM NAME="login" METHOD="post">
</BODY>
</HTML>
