jeg ved ikke om jeg lige har forstået spørgsmålet korrekt
men hvis det er meningen at du bare skal sende nået til en database igennem en formular så kan du gører nået i stil med:
<html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<title>Nyhedsbrev - tilmelding</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<link REL="StyleSheet" HREF="style.css" type="text/css">
</head>
<body>
<% Dim mode
mode = Request.QueryString("mode")
If mode = "" Then 'Hvis mode = ingenting - så vis formular til tilmelding/framelding %>
<form method="POST" action="tilmeld.asp?mode=submit">
<p>E-mail adresse:<br>
<input type="text" name="email" size="30"><br>
Tilmeld: <input type="radio" name="status" value="tilmeld" CHECKED>
Frameld: <input type="radio" name="status" value="frameld"><br><br>
<input type="submit" value="Tilmeld/Frameld"></p>
<% ElseIf mode = "submit" Then 'Hvis mode = "submit" så godkend og registrer indtastning
Dim email, status, error
error = False 'Bruges til at teste om der er sket fejl eller der er mangler i indtastning
email = Trim(Replace(Request.Form("email"), "'", ""))
status = Request.Form("status")
If Len(email) = 0 Then 'Tester om der er indtastet e-mail adresse
Response.Write "<b>Du har ikke indtastet en e-mail adresse</b>"
error = True
End If
If error = False Then 'Tilføjer eller fjerner e-mail adresse fra database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
If status = "tilmeld" Then 'Tilmelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Response.Write "<b>Denne e-mail adresse er allerede tilmeldt nyhedsbrevet</b>"
Else
Conn.Execute("INSERT INTO nyhedsbrev (email) VALUES ('" & email & "')")
Response.Write "<b>Du er nu tilmeldt nyhedsbrevet</b>"
End If
End If 'Slutter tilmeld
If status = "frameld" Then 'Framelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Conn.Execute("DELETE * FROM nyhedsbrev WHERE email='" & email & "'")
Response.Write "<b>Du er nu frameldt nyhedsbrevet</b>"
Else
Response.Write "<b>Din e-mail adresse blev ikke fundet i systemet</b>"
End If
End If 'Slutter frameld
Conn.Close
Set Conn = Nothing
End If 'Slutter tilmeld/frameld %>
<br><a href="java script:history.back()">« Tilbage</a>
<% End If %>
</form>
</body>
</html>
