•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Site Layout and Usability section within the Web Development category of DaniWeb, a massive community of 391,808 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,464 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Site Layout and Usability advertiser:
Views: 4782 | Replies: 17
![]() |
•
•
•
•
are you talking about ASP. I didn't understand what your last post was about....or what does it mean.
its a question and answer from my website host's knoledge or FAQ base. It basically says (i think) that CDONTS and JMAIL are the only type of sendmail script that works. Do you know these scripts? i have had no experience with them.
Max
Last edited by MaxMumford : Oct 22nd, 2006 at 5:53 am.
•
•
•
•
It basically says (i think) that CDONTS and JMAIL are the only type of sendmail script that works.
I think they are saying that CDONTS and JMAIL are the sendmail scripts that work in their server.
You can find more information about CDONTS here:
http://support.microsoft.com/kb/186204
vishesh
sorry i forgot abt JMAIL. Here's a link where u could learn that:
http://www.webwizguide.info/asp/tuto...l_tutorial.asp
vishesh
http://www.webwizguide.info/asp/tuto...l_tutorial.asp
vishesh
FINALLY!! a code which works!! below is a copy of some code which i got from that jmail website you gave me the link to which i edited a bit to work on one of my forms. How would i make a form like this one but with only name and 5 radio button options send with the same options?
[code]<%
Response.Buffer = True
'Dimension variables
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"
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
%>
<html>
<head>
</CODE>
Thanks again!! Your my new website guru :mrgreen:
Max:cheesy:
(note: i took out the info which is not read by the server which tells me what each section does so i might have clipped a bit of code out by accident but it works with the actual version anyway
[code]<%
Response.Buffer = True
'Dimension variables
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"
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
%>
<html>
<head>
</CODE>
Thanks again!! Your my new website guru :mrgreen:
Max:cheesy:
(note: i took out the info which is not read by the server which tells me what each section does so i might have clipped a bit of code out by accident but it works with the actual version anyway
Last edited by MaxMumford : Oct 22nd, 2006 at 9:52 am. Reason: code wraps not working
FINALLY!! a code which works!! below is a copy of some code which i got from that jmail website you gave me the link to which i edited a bit to work on one of my forms. How would i make a form like this one but with only name and 5 radio button options send with the same options?
Thanks again!! Your my new website guru :mrgreen:
Max:cheesy:
(note: i took out the info which is not read by the server which tells me what each section does so i might have clipped a bit of code out by accident but it works with the actual version anyway
<% Response.Buffer = True 'Dimension variables 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" 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 %> <html> <head>
Thanks again!! Your my new website guru :mrgreen:
Max:cheesy:
(note: i took out the info which is not read by the server which tells me what each section does so i might have clipped a bit of code out by accident but it works with the actual version anyway
only thing is, how do i make the form get the results for radio buttons and list menu things? here is an example code which includes a list and radio buttons:
here is some of the code i am using at the moment:
thanks again again again again lol. Max
<form name="form1" method="post" action="">
<p>
<label>
<input type="radio" name="RadioGroup1" value="radio">
Radio1</label>
<br>
<label>
<input type="radio" name="RadioGroup1" value="radio">
Radio2</label>
<br>
<select name="select">
<option>a</option>
<option>b</option>
<option>c</option>
<option>d</option>
<option>e</option>
<option>f</option>
</select>
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>here is some of the code i am using at the moment:
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 = "maxmumford@gmail.com" strSMTPServerAddress = "smtp.ntlworld.com" strCCEmailAddress = "" '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>" (Request.Form("list1")) > "a" Then strBody = strBody & "<br> " & Request.Form("country") 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 & "list2" & "list3" Set objJMail = Server.CreateObject("JMail.SMTPMail") objJMail.ServerAddress = strSMTPServerAddress objJMail.Sender = strReturnEmailAddress objJMail.SenderName = Request.Form("email") 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 %>
thanks again again again again lol. Max
![]() |
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
•
•
•
•
•
•
•
•
DaniWeb Site Layout and Usability Marketplace
- Previous Thread: Need help with form - Host - Go daddy
- Next Thread: Dreamweaver help



Linear Mode