her er det jeg har brugt, og det virker hos mig:
*** form.asp (siden med formen)
<form name="frmMail" method="post">
<input type="text" name="name" value="">
<br>
<input type="text" name="email" value="">
<br>
<input type="button" value="Send" onClick="validate()">
</form>
<script language="javascript">
var strNavn;
var strEmail;
function validate()
{
if (document.forms['frmMail'].name.value != "") {
if (document.forms['frmMail'].email.value != "") {
strNavn = document.forms['frmMail'].name.value;
strEmail = document.forms['frmMail'].email.value;
window.open('mail.asp?navn=' + strNavn + '&email=' + strEmail,300,200);
document.forms['frmMail'].submit();
} else { alert("Mangler Email"); return false;}
} else { alert("Mangler Navn"); return false;}
}
</script>
*** mail.asp (siden der gemme data i database)
<%
if (request.querystring("navn") <> "") and (request.querystring("email") <> "") then
dim Conn, DSN, strSQL
dim strNavn, strEmail
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN
strNavn = request.querystring("navn")
strEmail = request.querystring("email")
strSQL = "Insert into tblMail (navn, email) values('" & strNavn & "', '" & strEmail & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
response.write "Tilføjet til databasen:<br>"
response.write "Navn: " & strNavn & "<br>"
response.write "Email: " & strEmail
else
response.write "fejl! mangler navn eller email"
end if
%>
<br><br>
<a href="java script:window.close()">Luk dette vindue</a>
*** db1.mdb (database filen), indhold:
tabel: tblMail
felt : "navn", type tekst
felt : "email", type tekst
