Hej,
Her er et forslag, du skal bare skifte \"DIN E-MAIL ADRESSE\" ud med din e-mail adresse (2 steder).
Held og lykke,
Michael
<%@ 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>
