oki! Jeg skriver lige hele koden her:
<%
Response.Buffer = True
mode = Request.QueryString("mode")
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
filnavn = "default.asp"
' Ret ^^^^^^^ hvis du omdøber filen!
%>
<html>
<head>
<title>Untitled Document</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<p><font size="+5" face="verdana">Købes / Sælges</font></p>
<p><font size="2" face="verdana">Denne side er lavet til folk som gerne vil af med ting
som de ikke kan bruge til noget , derfor har jeg lavet denne side hvor man
kan oprette en annonce!</font></p>
<p><font size="2" face="verdana">God fornøjelse!</font></p>
<p> </p>
<table width="75%" border="0">
<tr>
<td><a href="<%=filnavn %>?mode=koeb">Købes</a> - <a href="<%=filnavn %>?mode=salg">Sælges</a>
(tryk på link alt efter hvad der passer til dig)</td>
</tr>
<tr>
<td><% if mode = "" then %>
Du har ikke valgt nogen kategori!
<% end if %>
<% if mode = "koeb" then %>
Du har valgt kategorien "Købes"
Klik her for at se indlæg under kategorien "Købes" eller tryk <a href="<%=filnavn %>?mode=koeb_annonce">her</a> for at lave en annonce!
<% end if %>
<% if mode = "koeb_annonce" then %>
Navn: <input type="text" name="s_annonce">
<% end if %>
<% if mode = "salg" then %>
Du har valgt kategorien "Sælges"
Klik <a href="<%=filnavn %>?mode=vis_salg">her</a> for at se indlæg under kategorien "Sælges" eller tryk <a href="<%=filnavn %>?mode=salg_annonce">her</a> for at lave en annonce!
<% end if %>
<% if mode = "vis_salg" then
Set rs = Conn.Execute("select * from Salg where id = " & Request.QueryString("id"))
%>
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><font class="small">Brugernavn</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("navn")%></font></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Email</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("email")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Adresse</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("adresse")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Telefon</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("telefon")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Dato</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("dato")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Beskrivelse</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("beskrivelse")%></font></td>
</tr>
</table>
<p>narko man <a href="default.asp?mode=vis_salg&id=<%=rs("id")%>"><%=rs("navn")%></a></p>
<%
rs.close
set rs = nothing
end if %>
<% if mode = "salg_annonce" then
' lavet af Christian Lægaard
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Salg"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs("navn") = Server.HTMLEncode(Request("navn"))
rs("email") = Server.HTMLEncode(Request("email"))
rs("adresse") = Server.HTMLEncode(Request("adresse"))
rs("telefon") = Server.HTMLEncode(Request("telefon"))
rs("beskrivelse") = Server.HTMLEncode(Request("beskrivelse"))
rs("dato") = Now()
rs.Update
Response.Redirect("default.asp?mode=vis_salg")
rs.Close
Set rs = Nothing
end if
%>
<font face="verdana" size="1">Opret annonce!</font><br>
<form method="post" action="default.asp?mode=salg_annonce">
<table border="1" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><font face="verdana" size="1">Navn</font></td>
<td bordercolor="#ffffff"><input type="text" name="navn" value="<%=Request("navn")%>" class="input"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font face="verdana" size="1">Email</font></td>
<td bordercolor="#ffffff"><input type="text" name="email" value="<%=Request("email")%>" class="input"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font face="verdana" size="1">Adresse</font></td>
<td bordercolor="#ffffff"><input type="text" name="adresse" value="<%=Request("adresse")%>" class="input"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font face="verdana" size="1">Telefon</font></td>
<td bordercolor="#ffffff"><input type="text" name="telefon" value="<%=Request("telefon")%>" class="input"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font face="verdana" size="1">Beskrivelse</font></td>
<td bordercolor="#ffffff"><input type="text" name="beskrivelse" value="<%=Request("beskrivelse")%>" class="input"></td>
</tr>
<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Opret" class="input"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<p><font size="2" face="verdana"></font></p>
</div>
</body>
</html>
