ASP-sammenbygning
Jeg har forsøgt at bygge 2 asp-scripts sammen men uden held. Jeg vil lave et script der ved igennem en form skriver til databasen \"nyheder\" og derefter viser indholdet af databasen nedenunder på samme side. Jeg ved ikke hvad det er der går galt.
Jeg indsætter min kode herunder:
<%
Job = Request( \"Job\" )
Fra = Request( \"Fra\" )
Til = Request( \"Til\" )
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\nyheder.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
if request(\"password\") = \"test\" then
session(\"login\") = \"ok\"
end if %>
<HTML>
<HEAD>
<TITLE>Rediger-CV</TITLE>
</HEAD>
<BODY>
<form method=\"POST\" target=\"_self\">
<table border=\"0\" width=\"600\">
<tr>
<td valign=\"top\" width=\"150\">Beskæftigelse</td><td>
<input type=\"text\" name=\"Job\" size=\"40\" maxlength=\"35\" >
<br><br></td>
</tr>
<tr>
<td>Fra</td><td><input type=\"text\" size=\"4\" name=\"Fra\"><br><br></td>
</tr>
<tr>
<td>Til</td><td><input type=\"text\" size=\"4\" name=\"Til\"><br><br></td>
</tr>
<tr>
<td></td><td align=\"left\"><input type=\"submit\" value=\"ok\"></td>
</tr>
</table>
</form>
<%
if request(\"mode\") = \"1\" then
Sql = \"INSERT INTO nyheder (Job, Fra, Til) VALUES(\'\" & Date() & \"\',\'\" & fixQuotes( Job ) & \"\',\'\" & fixQuotes( Fra ) & \"\',\'\" & fixQuotes( Til ) & \"\')\"
\'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
%>
<%
if request(\"mode\") = \"slet\" then
SQL = \"DELETE FROM nyheder where id =\"& request(\"id\")
conn.execute (SQL)
end if %>
<table width=\"600\" align=\"center\" border=\"1\" cellpadding=\"5\" cellspacing=\"0\">
<TR>
<TD> </TD>
<TD><b>Til</b></TD>
<TD><b>Fra</b></TD>
<TD><b>Beskæftigelse</b></TD>
</TR>
<%
SQL = \"SELECT * from nyheder\"
set slet = conn.execute( SQL )
do while not slet.eof
on error resume next %>
<TR>
<TD><A HREF=\"slet1.asp?id=<% = slet(\"id\") %>&mode=slet\">Slet</A></TD>
<TD><% = slet(\"Til\") %></TD>
<TD><% = slet(\"Fra\") %></TD>
<TD><% = slet(\"Job\") %></TD>
</TR>
<%
slet.movenext
loop %>
</TABLE>
<% conn.close
end if
%>
</BODY>
</HTML>
