Konkurrence
Er der en der kan lave rette denne kode nedefor, så den kan bruges til en konkurrence? Det skal være sådan at man trykker på en af svarmulighederne og skriver sin email-adresse, så skal disse oplysninger blive sendt til min emailadresse når de trykker på \"submit\".<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim strSvar, strEmail
dim strSubject, strBody, objMail
strSvar = \"\"
%>
<%
Select Case Request(\"SubmitForm\")
Case \"Submit\"
strSvar = Request.Form(\"chkSvar\")
strEmail = Request.Form(\"txtEmail\")
strSubject = \"Konkurrence\"
strBody = \"Svar: \" & strSvar & chr(10) & chr(13)
strBody = strBody & \"E-mail: \" & strEmail & chr(10) & chr(13)
SET objMail = Server.CreateObject(\"CDONTS.Newmail\")
objMail.Send \"DIN E-MAIL ADRESSE\", \"DIN E-MAIL ADRESSE\", strSubject, strBody
SET objMail = nothing
End Select
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>Konkurrence</title>
</head>
<body>
<form method=\"POST\">
<p><input type=\"radio\" name=\"chkSvar\" value=\"Svar1\"
<%if strSvar = \"Svar1\" then Response.Write(\"CHECKED\") end if%>>Svar 1</p>
<p><input type=\"radio\" name=\"chkSvar\" value=\"Svar2\"
<%if strSvar = \"Svar2\" then Response.Write(\"CHECKED\") end if%>>Svar 2</p>
<p><input type=\"radio\" name=\"chkSvar\" value=\"Svar3\"
<%if strSvar = \"Svar3\" then Response.Write(\"CHECKED\") end if%>>Svar 3</p>
<p><input type=\"text\" name=\"txtEmail\" value=\"E-mail\" size=\"20\"></p>
<p><input type=\"submit\" value=\"Submit\" name=\"SubmitForm\"><input type=\"reset\" value=\"Reset\" name=\"B2\"></p>
</form>
</body>
</html>
