 |  |  |  |  |  |  |  |
Jmail with radio buttons and menus
Please support our Site Layout and Usability advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases
 |
Hi all,
I want to make a jmail sendmail script for a form with radio buttons and menus. Below is an example form:
below is the jmail script i am using for a more simple form:
I want to make a jmail sendmail script for a form with radio buttons and menus. Below is an example form:
<form name="form1" method="post" action="survey-code.asp">
<p>
<input name="email" type="text" id="email">
</p>
<p>
<select name="list1" id="list1">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<select name="list2" id="list2">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<select name="list3" id="list3">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>below is the jmail script i am using for a more simple form:
<% Response.Buffer = True Dim strBody 'Holds the body of the e-mail Dim objJMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strSMTPServerAddress 'Holds the SMTP Server address Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail Dim strReturnEmailAddress 'Holds the return e-mail address of the user strMyEmailAddress = "info@themepics.co.uk" strSMTPServerAddress = "smtp.ntlworld.com" strCCEmailAddress = "maxmumford@gmail.com" 'Use this string only if you want to send the carbon copies of the e-mail strBCCEmailAddress = "" strReturnEmailAddress = Request.Form("email") strBody = "<h2>E-mail sent from form on Web Site</h2>" strBody = strBody & "<br><b>Name: </b>" & Request.Form("Name") strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress strBody = strBody & "<br><b>Question: </b>" & request.form("question") If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If Set objJMail = Server.CreateObject("JMail.SMTPMail") objJMail.ServerAddress = strSMTPServerAddress objJMail.Sender = strReturnEmailAddress objJMail.SenderName = Request.Form("Name") objJMail.AddRecipient strMyEmailAddress objJMail.AddRecipientCC strCCEmailAddress objJMail.AddRecipientBCC strBCCEmailAddress objJMail.Subject = "Enquiry sent from enquiry form on website" objJMail.HTMLBody = strBody 'objJMail.Body = strBody objJMail.Priority = 3 objJMail.Execute Set objJMail = Nothing %>
Ill solve somebody's thread someday! xD
and i forgot to complete my post lol. Thats the info you wil probably need so can anybody tell me how to add a menu and radio group / button to my jmail script? Thanks,
Max
Max
Ill solve somebody's thread someday! xD
•
•
Join Date: Oct 2006
Posts: 1,311
Reputation: 
Solved Threads: 36
•
•
•
•
Originally Posted by MaxMumford 
and i forgot to complete my post lol. Thats the info you wil probably need so can anybody tell me how to add a menu and radio group / button to my jmail script? Thanks,
Max
•
•
•
•
Originally Posted by vishesh
I didn't understand what you mean by adding adding menu and radio group to JAMIL script....Do mean that you want to retrieve the option selected and show it in the message that is being sent ??
Max
Ill solve somebody's thread someday! xD
•
•
Join Date: Oct 2006
Posts: 1,311
Reputation:
Solved Threads: 36
to add a radio buttons in your page.. .. use input tahers an example
[html]
<input type="radio" name="status" value="on"> on
<br>
<input type="radio" name="status" value="off"> off
[/html]
to retrieve it in asp, just that Request.QueryString(name)
[html]
<input type="radio" name="status" value="on"> on
<br>
<input type="radio" name="status" value="off"> off
[/html]
to retrieve it in asp, just that Request.QueryString(name)
•
•
•
•
Originally Posted by vishesh
to add a radio buttons in your page.. .. use input tahers an example
[html]
<input type="radio" name="status" value="on"> on
<br>
<input type="radio" name="status" value="off"> off
[/html]
to retrieve it in asp, just that Request.QueryString(name)
Ill solve somebody's thread someday! xD
•
•
Join Date: Oct 2006
Posts: 1,311
Reputation:
Solved Threads: 36
here goes your html code
[html]
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title></title>
</head>
<body>
<form name="form1" method="post" action="survey-code.asp">
<p>
<input name="email" type="text" id="email">
</p>
<p>
<select name="list1" id="list1">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<select name="list2" id="list2">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<select name="list3" id="list3">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<input type="radio" name="status" value="On" />On
<input type="radio" name="status" value="On" />Off
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
</body>
</html>
[/html]
and here's ur script, haven't checked it yet but it must work:
hope it works, if doesn't i am here only
vishesh
[html]
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title></title>
</head>
<body>
<form name="form1" method="post" action="survey-code.asp">
<p>
<input name="email" type="text" id="email">
</p>
<p>
<select name="list1" id="list1">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<select name="list2" id="list2">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<select name="list3" id="list3">
<option>a</option>
<option>b</option>
<option>c</option>
</select>
</p>
<p>
<input type="radio" name="status" value="On" />On
<input type="radio" name="status" value="On" />Off
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
</body>
</html>
[/html]
and here's ur script, haven't checked it yet but it must work:
<%
Response.Buffer = True
Dim strBody 'Holds the body of the e-mail
Dim objJMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strSMTPServerAddress 'Holds the SMTP Server address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
strMyEmailAddress = "info@themepics.co.uk"
strSMTPServerAddress = "smtp.ntlworld.com"
strCCEmailAddress = "maxmumford@gmail.com" 'Use this string only if you want to send the carbon copies of the e-mail
strBCCEmailAddress = ""
strReturnEmailAddress = Request.Form("email")
strBody = "<h2>E-mail sent from form on Web Site</h2>"
strBody = strBody & "<br><b>Name: </b>" & Request.Form("Name")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><b>Status: </b>" & Request.Form("status")
strBody = strBody & "<br><b>Question: </b>" & request.form("question")
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
strReturnEmailAddress = strMyEmailAddress
End If
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = strSMTPServerAddress
objJMail.Sender = strReturnEmailAddress
objJMail.SenderName = Request.Form("Name")
objJMail.AddRecipient strMyEmailAddress
objJMail.AddRecipientCC strCCEmailAddress
objJMail.AddRecipientBCC strBCCEmailAddress
objJMail.Subject = "Enquiry sent from enquiry form on website"
objJMail.HTMLBody = strBody
'objJMail.Body = strBody
objJMail.Priority = 3
objJMail.Execute
Set objJMail = Nothing
%>vishesh
Last edited by vishesh; Oct 24th, 2006 at 3:23 pm.
•
•
Join Date: Oct 2006
Posts: 1,311
Reputation:
Solved Threads: 36
Sorry forgot explanation...so i have done in html code is that i have put two radio buttons with name status and value On and Off. When you click submit it send the reuest as [html]
survey-code.asp?status=On/Off[/html]
So in the scirpt I retrieve its value by Request.Form("status")
So i hope you got it...
cheers
vishesh
survey-code.asp?status=On/Off[/html]
So in the scirpt I retrieve its value by Request.Form("status")
So i hope you got it...
cheers
vishesh
im going out now but ill check it out when i get back |
Similar Threads
- dynamically generated textboxes & radio buttons php, insert into db (PHP)
- binding radio buttons (VB.NET)
- javascript: radio buttons (JavaScript / DHTML / AJAX)
- IE6 - dialogue boxes , check boxes and radio buttons work very slowly after hijacking (Viruses, Spyware and other Nasties)
Other Threads in the Site Layout and Usability Forum
- Previous Thread: Dreamweaver help
- Next Thread: Frames...
| Thread Tools | Search this Thread |
You need to join our community in order to build your list of favorite forums. You can visit the forum index for a listing of all forums.
Related Forum Features
Latest Site Layout and Usability Posts
- Today's Posts
- Unanswered Threads
blogging content customer design development dreamweaver duplicate email evaluation filesharing firefox flash gilbane google html itunes javascript kazaa layout music napster peertopeer photoshop remote remoteserver satellitenavigation satnav server site tables template tips tomtom url wave web website websitedesignreview web_development web_sites
