<%
If Request.Querystring ("ID") = "all" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("annoncer.mdb")
Conn.Open DSN
strSQL = "Select * from annoncer"
Set rs = Conn.Execute(strSQL)
Do
%><a href='view.asp?ID=<% Response.Write rs("ID") %>'><% Response.Write rs("OVERSKRIFT") & "<br>" %></a><%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
Elseif Request.Querystring ("ID") = "add" Then %>
<form method="post" action="annoncer.asp?id=save">
Overskrift (Max 50 tegn): <input type="text" name="OVERSKRIFT"><br>
Navn (Max 50 tegn): <input type="text" name="NAVN"><br>
Land (Max 50 tegn): <input type="text" name="LAND"><br>
Kontakt (E-mail, adresse eller tlf. - Max 200 tegn): <input type="text" name="KONTAKT"><br>
Annonce: <textarea rows="8" name="ANNONCE" style="width: 340"></textarea><br>
Evt. billede-URL (Inkl. http://): <input type="text" name="BILLEDE"><br>
<input type="submit" value="Opret annonce"></form>
<% Elseif Request.Querystring ("ID") = "save" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("annoncer.mdb")
Conn.Open DSN
strSQL = "Insert into annoncer (NAVN, LAND, KONTAKT, ANNONCE, BILLEDE, OVERSKRIFT) values('" & Request.Form("NAVN") & "','" & Request.Form("LAND") & "','" & Request.Form("KONTAKT") & "','" & Request.Form("ANNONCE") & "','" & Request.Form("BILLEDE") & "','" & Request.Form("OVERSKRIFT") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing %>
<font face=verdana size=2>
<% Response.redirect "annoncer.asp?id=all"
Elseif Request.Querystring ("ID") = "delete" Then
Response.write "Delete-funktion kommer snart..."
Else
Response.redirect "annoncer.asp?id=all"
End if
%>
