• 0

ASP Help?


Question

I'm tryin to make this Sendmail code to send the result of a form to an e-mail, kinda like a contact form. Its been a long time since I've done this and i've lost my touch. could someone help me out?

<%
 ?Dim email, name, age, grade, address, phone, email, mom, dad
 ?Dim Mailer
 ?
 ?Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ?'create Mailer object
 ?email = Request.QueryString("email") ? ' Get e-mail from querystring/form
 ?name = Request.QueryString("frstname") & " " Request.QueryString("lstname") ' Get name from querystring/form
 ?age = Request.QueryString("age")
 ?
 ?Mailer.FromName ? = name ?
 ?Mailer.FromAddress= "contactus@lala.com
 ?Mailer.RemoteHost = "smtp.lala.com" ?'Name of your mail host
 ?Mailer.AddRecipient "LALA Employee", personatthrive@lala.com 'Recipient
 ?Mailer.Subject ? ?= "Contact E-mail"
 ?Mailer.BodyText ? = "E-mail : " & email & "Name: " & name
 ?Mailer.SendMail ?'Send mail
 ?Set Mailer = Nothing
%>

That isn't complete, but I'm confused of where to go from there. It supposed to send the following fields to an e-mail, either formated with HTML or plain text

Fields:

First Name

Last Name

Age

Grade

Address

City

State

Zip

Phone

E-Mail

Mother's Name

Father's Name

Programs (Array of 6)

Thanks

splendore0@msn.com

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/
Share on other sites

11 answers to this question

Recommended Posts

  • 0
  Vafer1 said:
I'm tryin to make this Sendmail code to send the result of a form to an e-mail, kinda like a contact form. Its been a long time since I've done this and i've lost my touch. could someone help me out?

<%
  Dim email, name, age, grade, address, phone, email, mom, dad
  Dim Mailer
  
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")  'create Mailer object
  email = Request.QueryString("email")   ' Get e-mail from querystring/form
  name = Request.QueryString("frstname") & " " Request.QueryString("lstname") ' Get name from querystring/form
  age = Request.QueryString("age")
  
  Mailer.FromName   = name  
  Mailer.FromAddress= "contactus@lala.com
  Mailer.RemoteHost = "smtp.lala.com"  'Name of your mail host
  Mailer.AddRecipient "LALA Employee", personatthrive@lala.com 'Recipient
  Mailer.Subject    = "Contact E-mail"
  Mailer.BodyText   = "E-mail : " & email & "Name: " & name
  Mailer.SendMail  'Send mail
  Set Mailer = Nothing
%>

That isn't complete, but I'm confused of where to go from there. It supposed to send the following fields to an e-mail, either formated with HTML or plain text

Fields:

First Name

Last Name

Age

Grade

Address

City

State

Zip

Phone

E-Mail

Mother's Name

Father's Name

Programs (Array of  6)

Thanks

splendore0@msn.com

585397104[/snapback]

You need to get the Form information from the Request object's Form collection. Then you can access the Form's fields by name/id.

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585397901
Share on other sites

  • 0

It's the same most of the time, if you are sending it to a webmail based system like Hotmail, it automatically will strip that part and just display the <BODY>, in Outlook and those ones, the complete file is parsed with <HTML> existing or not, so I recommend you to send a complete <HTML> document and if you are putting CSS styles in the mail put them to be inline because most of the time the <HEAD> part is stripped out in websystems and local ones..

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585414104
Share on other sites

  • 0

ANYONE see anything wrong?

[/code]<% Dim email, name, age, grade, addy, phone, email, mom, dad

Dim Mailer

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'create Mailer object

email = Request.QueryString("email") ' Get e-mail from querystring/form

' name = Request.QueryString("frstname") & " " 'Request.QueryString("lstname") ' Get name from querystring/form

' age = Request.QueryString("age")

Mailer.FromName = "Jeff Greener"

Mailer.FromAddress= "contactus@lala.com"

Mailer.RemoteHost = "smtp.cox.net" 'Name of your mail host

Mailer.AddRecipient "LALA Employee", "splendore0@msn.com" 'Recipient

Mailer.Subject = "Contact E-mail"

Mailer.BodyText = "<html>

<head>

<title>E-Mail from website </title>

</head>

<body>

<p>First Name: " & frstname & "<br>

Last Name: " & lstname & "<br>

Age: " & age &"<br>

Grade: " & grade & "<br>

Address: " & addy & "<br>

City: " & city & "<br>

State: " & state & "<br>

Zip: " & zip & "<br>

Phone: " & phone &"<br>

E-Mail: " & email & "<br>

Mother's Name: " & mname & "<br>

Father's Name: " & fname & "</p>

</body>

</html>"

Mailer.SendMail 'Send mail

Set Mailer = Nothing

%>


I can't figure it out, i thought i was doing it right but i think im wrong....

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585437534
Share on other sites

  • 0

The biggest problem with this is that you cannot have line breaks within your body text.

You can do:

Mailer.BodyText = "&lt;html&gt;&lt;head&gt;&lt;title&gt;E-Mail from website &lt;/title&gt;&lt;/head&gt;&lt;body&gt;..." 

so that the body text is all on one line.

OR

you can do:

Dim strBody

strBody = ""
strBody = strBody "&lt;html&gt;"
strBody = strBody "  &lt;head&gt;"
strBody = strBody "    &lt;title&gt;E-Mail from website &lt;/title&gt;"
strBody = strBody "  &lt;/head&gt;"
strBody = strBody "  &lt;body&gt;"... 

Mailer.BodyText = strBody

Try this and let me know if this work or if you are still encountering problems.

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585439706
Share on other sites

  • 0

&lt;% Dim email, name, age, grade, addy, phone, email, mom, dad
 Dim Mailer

 Set Mailer = Server.CreateObject("SMTPsvg.Mailer")  'create Mailer object
 email = Request.QueryString("email")   ' Get e-mail from querystring/form
 name = Request.QueryString("frstname") &amp; " " Request.QueryString("lstname") ' Get name from querystring/form
 age = Request.QueryString("age")


 Mailer.FromName   = name  
 Mailer.FromAddress= "contactus@lala.com"
 Mailer.RemoteHost = "smtp.cox.net"  'Name of your mail host
 Mailer.AddRecipient "LALA Employee", "splendore0@msn.com" 'Recipient
 Mailer.Subject    = "Contact E-mail"
 Mailer.BodyText   = "&lt;html&gt;&lt;head&gt;&lt;title&gt;E-Mail from website &lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;p&gt;First Name: " &amp; frstname &amp; "&lt;br&gt;Last Name: " &amp; lstname &amp; "&lt;br&gt;Age: " &amp; age &amp;"&lt;br&gt;Grade: " &amp; grade &amp; "&lt;br&gt;Address: " &amp; addy &amp; "&lt;br&gt;City: " &amp; city &amp; "&lt;br&gt;State: " &amp; state &amp; "&lt;br&gt;Zip: " &amp; zip &amp; "&lt;br&gt;Phone: " &amp; phone &amp;"&lt;br&gt;E-Mail: " &amp; email &amp; "&lt;br&gt;Mother's Name: " &amp; mname &amp; "&lt;br&gt;Father's Name: " &amp; fname &amp; "&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;"
 Mailer.SendMail  'Send mail
 Set Mailer = Nothing
%&gt;

Whats wrong now? still server error, could it be the content type? anyone remember the mailer. extension for it?

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585454018
Share on other sites

  • 0

Your missing an "&" between the " " and Request.QueryString("lstname") :

 name = Request.QueryString("frstname") &amp; " " Request.QueryString("lstname")

Should be:

 name = Request.QueryString("frstname") &amp; " " &amp; Request.QueryString("lstname")

If this still doesn't fix it, do you know what the error is or are you just getting the "Page Cannot Be Displayed Error?" If the latter, than have you tried injecting any error catching to display where the error might be occuring?

Oh, try adding this code to catch any smpt errors:

 Mailer.SMTPLog = "c:\smtplog.txt"

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585458350
Share on other sites

  • 0

I am getting ERROR 500, internal server error. Put that fix in and still doesnt work..

Does anyone have the resources to test this page on their site?

And the smptlog doenst create even after changing permissions,

THis is all my server log says...

[sat Feb 12 21:59:52 2005] [error] [client 68.98.23.118] File does not exist: /home/kentco2/public_html/500.shtml

[sat Feb 12 21:58:57 2005] [error] [client 68.98.23.118] File does not exist: /home/kentco2/public_html/500.shtml

[sat Feb 12 21:58:57 2005] [error] [client 68.98.23.118] File does not exist: /home/kentco2/public_html/404.shtml

and yes ASP is enabled.

Link to comment
https://www.neowin.net/forum/topic/279433-asp-help/#findComment-585461999
Share on other sites

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Download old Windows Startup Sounds @ https://www.winhistory.de/more/winstart/winstart_en.htm
    • Surface Copilot+ PCs coming to classrooms from July 22, turbocharged with on-device AI by Paul Hill Microsoft has announced that it’s launching the new Surface Pro 12-inch and Surface Laptop 13-inch models specifically for education customers from July 22. The Redmond giant said that these devices are being launched as a direct response to feedback from educators who want practicality and ease of use in their diverse classrooms. These are both Copilot+ PCs so teachers and students will be able to leverage the latest AI features thanks to the dedicated Neural Processing Units (NPUs) that allow for on-device AI. The on-device AI, aside from delivering well-known features like Recall, will enable new education features such as a new app Microsoft is working on called Microsoft Learning Zone. Microsoft Learning Zone will allow teachers to create personalized lessons by adapting content from trusted sources like OpenStax, generating interactive games with Kahoot, and tracking students progress. Microsoft expects this to help teachers save time and deliver a more flexible and engaging classroom. Another AI feature that will be available is Click to Do. This lets students highlight text or images and get contextual help. It can be used to summarize a paragraph or explain a graph. To activate it, students can press the Windows key and click. This feature runs entirely on device so inputs to the AI are secure and you don’t need to ever worry about third-parties seeing. Finally, these devices will also have accessibility features such as Voice Access which lets you navigate with speech and Live Captions which provide real-time subtitles and translations for spoken content. These make the devices more inclusive for students with disabilities. Regarding security, these laptops come with the Microsoft Pluton security chip directly integrated into the processor for protecting sensitive data. It can protect data such as passwords and sign-ins, even if your device is stolen. Thanks to automatic Windows Updates, schools never need to worry about falling behind on updates either. With the impending demise of Windows 10 in mid-October, these Surface devices arrive just in time for schools looking for somewhere to upgrade to. Aside from AI features and security, Microsoft is also pushing other key features including easy repair with replacement components at the Microsoft Store and iFixit, their lightweight design and all-day battery life making them ideal for carrying and surviving the school day, and their compatibility with popular education apps such as TestNav, Google Classroom, Minecraft Education, and Adobe Express.
  • Recent Achievements

    • Rising Star
      Phillip0web went up a rank
      Rising Star
    • One Month Later
      Epaminombas earned a badge
      One Month Later
    • One Year In
      Bert Fershner earned a badge
      One Year In
    • Reacting Well
      ChrisOdinUK earned a badge
      Reacting Well
    • One Year In
      Steviant earned a badge
      One Year In
  • Popular Contributors

    1. 1
      +primortal
      545
    2. 2
      ATLien_0
      205
    3. 3
      +FloatingFatMan
      170
    4. 4
      Michael Scrip
      149
    5. 5
      Som
      131
  • Tell a friend

    Love Neowin? Tell a friend!