Hold kæft noget lort!
Jeg giver jer bare hele koden:<% Response.Buffer = True
On Error Resume Next %>
<html>
<head>
<title>Dansk hobie 405 klub</title>
</head>
<body topmargin=\"0\" leftmargin=\"0\" background=\"../images/bgm.jpg\">
<!--#include file=\"../top.htm\"-->
<p style=\"text-indent: 0; word-spacing: 0; margin: 0\"><font face=\"Arial\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"528\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"30\" background=\"../images/bgv.jpg\"> </td>
<td width=\"468\" bgcolor=\"#6699FF\">
<p> </p>
<% If Request(\"mode\") = \"\" then
IF Request(\"fejl\") = \"navn\" then
Navn = \"<FONT COLOR=\"\"red\"\">Indtast Navn!</FONT>\"
ELSEIF Request(\"fejl\") = \"email\" then
Email = \"<FONT COLOR=\"\"red\"\">Indtast Email!</FONT>\"
ELSEIF Request(\"fejl\") = \"telefon\" then
Telefon = \"<FONT COLOR=\"\"red\"\">Indtast Tlf. nummer!</FONT>\"
ELSEIF Request(\"fejl\") = \"overskrift\" then
Overskrift = \"<FONT COLOR=\"\"red\"\">Indtast Overskrift!</FONT>\"
ELSEIF Request(\"fejl\") = \"annonce\" then
Annonce = \"<FONT COLOR=\"\"red\"\">Indtast Annonce!</FONT>\"
End If
%>
<p align=\"center\"><font color=\"#FFFFFF\" size=\"4\" face=\"Arial\"><b>Tilføj en Annonce</b></font></p>
<Form Action=\"tilfny.asp?mode=modtage\" Method=\"Post\" Name=\"Form\">
<TABLE>
<Tr>
<Td Align=\"Left\" Width=\"40%\" Valign=\"Top\"><Font Size=\"3\"
Face=\"Arial\">Navn: </Font></Td>
<Td Colspan=\"2\" Width=\"60%\"><Input Type=\"Text\" Name=\"Navn\" VALUE=\"<%= Request(\"navn\") %>\"><%= Navn %></Td>
</Tr>
<Tr>
<Td Align=\"Left\" Width=\"40%\" Valign=\"Top\"><Font Size=\"3\"
Face=\"Arial\">Email: </Font></Td>
<Td Colspan=\"2\" Width=\"60%\"><Input Type=\"Text\" Name=\"Email\" VALUE=\"<%= Request(\"email\") %>\"><%= Email %></Td>
</Tr>
<Tr>
<Td Align=\"Left\" Width=\"40%\" Valign=\"Top\"><Font Size=\"3\"
Face=\"Arial\">Telefon: </Font></Td>
<Td Colspan=\"2\" Width=\"60%\"><Input Type=\"Text\" Name=\"Telefon\" VALUE=\"<%= Request(\"telefon\") %>\"><%= Telefon %> Skriv gerne flere numre!</Td>
</Tr>
<Tr>
<Td Align=\"Left\" Width=\"40%\" Valign=\"Top\"><Font Size=\"3\"
Face=\"Arial\">Overskrift:</Font></Td>
<Td Colspan=\"2\" Width=\"60%\"><Input Type=\"Text\" Name=\"Overskrift\" VALUE=\"<%= Request(\"overskrift\") %>\"><%= Overskrift %></Td>
</Tr>
<Tr>
<Td Align=\"Left\" Valign=\"Top\" Width=\"20%\"><Font
Size=\"3\" Face=\"Arial\">Annonce:</Font></Td>
<Td Valign=\"Top\" Width=\"80%\">
<Textarea Name=\"Annonce\" Rows=\"8\" Cols=\"40\"><%= Request(\"annonce\") %></Textarea><%= Annonce %></Td>
</Tr>
<Tr>
<Td Align=\"Left\" Valign=\"Top\" Width=\"20%\"><Font
Size=\"3\" Face=\"Arial\">Evt. Billede:</Font></Td>
<Td Valign=\"Top\" Width=\"80%\">
<Input Type=\"Text\" Name=\"Billede\" VALUE=\"http://\"></Td>
</Tr>
<Tr>
<Td Width=\"20%\"></Td>
<Td Colspan=\"2\" Width=\"80%\"><Input Type=\"Submit\"
Value=\"Tilføj\"> <Input Type=\"Reset\"></Td>
</Tr>
</Table>
</Form>
<% ElseIf Request(\"mode\") = \"modtage\" then
If Request.form(\"Navn\") = \"\" then
Response.Redirect \"tilfny.asp?fejl=navn&navn=\" & Request.form(\"Navn\") & \"&email=\" & Request.form(\"Email\") & \"&telefon=\" & Request.form(\"Telefon\") & \"&overskrift=\" & Request.form(\"Overskrift\") & \"&annonce=\" & Request.form(\"Annonce\")
ElseIf Request.form(\"Email\") = \"\" then
Response.Redirect \"tilfny.asp?fejl=email&navn=\" & Request.form(\"Navn\") & \"&email=\" & Request.form(\"Email\") & \"&telefon=\" & Request.form(\"Telefon\") & \"&overskrift=\" & Request.form(\"Overskrift\") & \"&annonce=\" & Request.form(\"Annonce\")
ElseIf Request.form(\"Telefon\") = \"\" then
Response.Redirect \"tilfny.asp?fejl=telefon&navn=\" & Request.form(\"Navn\") & \"&email=\" & Request.form(\"Email\") & \"&telefon=\" & Request.form(\"Telefon\") & \"&overskrift=\" & Request.form(\"Overskrift\") & \"&annonce=\" & Request.form(\"Annonce\")
ElseIf Request.form(\"overskrift\") = \"\" then
Response.Redirect \"tilfny.asp?fejl=overskrift&navn=\" & Request.form(\"Navn\") & \"&email=\" & Request.form(\"Email\") & \"&telefon=\" & Request.form(\"Telefon\") & \"&overskrift=\" & Request.form(\"Overskrift\") & \"&annonce=\" & Request.form(\"Annonce\")
ElseIf Request.form(\"Annonce\") = \"\" then
Response.Redirect \"tilfny.asp?fejl=annonce&navn=\" & Request.form(\"Navn\") & \"&email=\" & Request.form(\"Email\") & \"&telefon=\" & Request.form(\"Telefon\") & \"&overskrift=\" & Request.form(\"Overskrift\") & \"&annonce=\" & Request.form(\"Annonce\")
End If
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../fpdb/db1.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From kobsalg\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs(\"Navn\") = Request.form(\"Navn\")
rs(\"Email\") = Request.form(\"Email\")
rs(\"Overskrift\") = Request.form(\"Overskrift\")
rs(\"Annonce\") = Request.form(\"Annonce\")
rs(\"Dato\") = Now()
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
If Error.Number > 1 then
Response.Write \"Der er opstået en fejl, serveren retunerer:<br>\"
Response.Write \"Fejl beskrivelse: <font color=red>\" & Err.Description & \"</font><br>\"
Response.Write \"Fejl kilde: <font color=red>\" & Err.Source & \"</font><br>\"
Else
%>
<p align=\"center\"><font color=\"#FFFFFF\" size=\"4\" face=\"Arial\"><b>Annonce tilføjet</b></font></p>
<TABLE>
<TR>
<TD>Din Annonce er nu TIlføjet. <BR><BR></TD>
</TR>
<TR>
<TD>Skulle der blive evt. problemmer er du velkommen til at kontakte: <A HREF=\"mailto:casper@visitme.dk\">Webmaster</A></TD>
</TR>
</TABLE>
<% End If %>
<p> </p>
</td>
<td width=\"30\" background=\"../images/bgh.jpg\"> </td>
</tr>
</table>
</center>
</div>
</i></font>
<br>
<br>
</body>
</html>
<% End If %>
