Help with asp form will not display contact information

Lafinboy 4 Junior Poster · 2004-09-19T09:19:08+00:00

OK everything is good with your code. The reason you are not seeing any output from the form submission on your asp page is because you are not using any code to display the information.

Try using this code sample for your asp page:

<html>
<head>
<title> asp page</title>
</head>
<body>
<h1> Here is your contact information</h1>
<% 
'// declare variable names to hold the form field values
Dim strfullname, straddress, strcitystatezip, strphone
'// assign values to the declared variables
strfullname = Request.Form("fullname")
straddress = Request.Form("address")
strcitystatezip = Request.Form("citystatezip")
strphone = Request.Form("phone")
%>
<!-- Now display the results from the form submission using the above variables -->
Your Name : <%=strfullname%><br />
Your Address : <%=straddress%><br />
Your Address : <%=strcitystatezip%><br />
Your Phone : <%=strphone%><br />
</body>
</html>

jchamel 0 Newbie Poster · 2004-09-28T06:05:31+00:00

Thanks so much. I looked at that code so much, I never noticed that I didn't tell it what to display. My teacher told me another way to do this was response.write ("full name") etc, under the request.form. I was requesting but not telling it what to do huh. This is only my second asp file. Thanks so much. What book did you learn from? We are using Begining active server pages by several authors and the company wrox. :D

Lafinboy 4 Junior Poster · 2004-09-28T06:15:33+00:00

Happy to help.

<%=variablename%> is a shorthand way of writing <%Response.Write variablename%>

I started with the same book, then hit the forums and searched google to fill in the gaps and expand my knowledge. Another book I always keep nearby is VBScript in a Nutshell published by O'Reilly. It's a quick reference to the language and it's use, like a dictionary. Really useful when you need to check the use/syntax of a function.

Good luck with your learning. And keep asking questions - it's the best way to learn.

sinister747 0 Newbie Poster · 2005-08-04T09:43:43+00:00

Hi all.. This is my first time to this forum and i must say very impressive work here, But i need some serious help with a problem i have with the topic overhead here.

I have used the code along side more code. find the code below,

<%
Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "Regarding " & Request.Form("subject")
Recipient = Request.Form("priority")
Body = Request.Form("body")
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Below you should enter your own SMTP-server
JMail.ServerAddress = "I Have it set, But i am not displaying, Sure you will understand"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient "I Have it set, But i am not displaying, Sure you will understand"
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging = True
JMail.Execute
'// declare variable names to hold the form field values
Dim strname, stremail, strcountry, strbody, strsubject, strabout, strto, strhomepage, strpriority
'// assign values to the declared variables
strname = Request.Form("name")
stremail = Request.Form("email")
strcountry = Request.Form("country")
strbody = Request.Form("body")
strsubject = Request.Form("subject")
strabout = Request.Form("about")
strto = Request.Form("to")
strhomepage = Request.Form("website")
strpriority = Request.Form("priority")
%>


Message To : <%=strto%> 
Subject : <%=strsubject%> 
Full Name : <%=strname%> 
Email Address : <%=stremail%> 
Country : <%=strcountry%> 
Homepage : <%=strhomepage%> 
Where did you hear about us : <%=strabout%> 
Message Priority : <%=strpriority%> 
Mail Message : <%=strbody%>

Now, The information is been displayed when you submit the form,

Preview here : www.DIRTYRATSCLAN.com/contact.htm

It is also sending the email to my account with no flaw, The problem i am having is that the email is not stating all fields of the form. It is just giving the Email address and subject, I need all the area's for instance, Website & Priority..

I would appreciate immediate help with this issue as i have been up 17 hours :(

This is my first time working with .asp coding so please take that into account..

Kind Regards,
Sinister747

Lafinboy 4 Junior Poster · 2005-08-04T09:59:13+00:00

The reason you are only getting the value of the form field <body> is because that is the only field you are including in your email. I would modify your code a bit so the form field data is collected before you process the email, and you can then merge the form fields into a layout that is suitable for you, something along the lines of:

<%
Recipient = Request.Form("priority")

'// declare variable names to hold the form field values
Dim strname, stremail, strcountry, strbody, strsubject, strabout, strto, strhomepage, strpriority
'// assign values to the declared variables
strname = Request.Form("name")
stremail = Request.Form("email")
strcountry = Request.Form("country")
strbody = Request.Form("body")
strsubject = Request.Form("subject")
strabout = Request.Form("about")
strto = Request.Form("to")
strhomepage = Request.Form("website")
strpriority = Request.Form("priority")

'// now build the form content into a single variable
dim strEmailBody
strEmailBody = "From: " & strname & VbCrLf
strEmailBody = strEmailBody & "Email: " & stremail  & VbCrLf
strEmailBody = strEmailBody & "Country: " & stremail & VbCrLf
'// etc, etc, you get the picture by  now

Set JMail = Server.CreateObject("JMail.SMTPMail")

' Below you should enter your own SMTP-server
JMail.ServerAddress = "I Have it set, But i am not displaying, Sure you will understand"

JMail.Sender = stremail
JMail.Subject = strsubject

JMail.AddRecipient "I Have it set, But i am not displaying, Sure you will understand"

JMail.Body = strEmailBody

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging = True
JMail.Execute
%>

sinister747 0 Newbie Poster · 2005-08-04T10:05:50+00:00

Greatly appreciated and nice fast reply, Thank you very much. If i have any problems i will post back, However it seems very simple :rolleyes:

:confused: cya

sinister747 0 Newbie Poster · 2005-08-04T10:17:37+00:00

Well i will be damned.. Would you look at that. You's guys are ACE !.. keep up the good work and thank you SO SO SO Much !

On Part of DIRTY RATS CLAN and myself personelly thank you's

Lafinboy 4 Junior Poster · 2005-08-04T10:22:20+00:00

No worries:D

sinister747 0 Newbie Poster · 2005-12-30T00:43:31+00:00

Hi All,

First of all the script i have posted above is now working fine, However i want to make it a little more advanced!.

I now have setup a system for sending Receipts to members of our Gaming Community.

What happens is this.

1st Page.

On the first page it takes information from a Database and places it into Text Boxs on a Form.

I then edit the information in the text boxs and hit Submit to send the email.

So the FORM submits to my page that sends the mail like the script above, But for some reason it WONT send the mail.

If i make it send a Textbox called " body " then it works fine, but i can't get it to send the information in HTML format.

All help will be appreciated as you's dealt with my problem very professionally last time i feel there is no other place to go.

Code Below;

<%
Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "DIRTY RATS CLAN - Payment Received"

'// declare variable names to hold the form field values
Dim strusername, strname, strdate, stramount, strpaypalfee, stramountreceived, strcovertill, stramountdue, strduedate, strcovermonth, strnotes, strID

' Get the form data
strID = Request.Form("id")
strusername = Request.Form("username")
strname = Request.Form("name")
strdate = Request.Form("date")
stramount = Request.Form("amount")
strpaypalfee = Request.Form("paypalfee")
stramountreceived = Request.Form("amountreceived")
strcovertill = Request.Form("covertill")
stramountdue = Request.Form("amountdue")
strduedate = Request.Form("duedate")
strcovermonth = Request.Form("covermonth")
strnotes = Request.Form("notes")
senderEmail = Request.Form("email")
subject = "DIRTY RATS CLAN - Payment Notification For" & Request.Form("username")
recipient = Request.Form("recipient")
strReferer = request.servervariables("HTTP_REFERER")
strServer = Replace(request.servervariables("SERVER_NAME"),"www.","")
strSMTPServer = "smtp." & strServer

' check referer
intComp = inStr(strReferer, strServer)
If intComp > 0 Then
blnSpam = False
Else
' Spam Attempt Block
blnSpam = True
End If

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true in case you wish to handle the errors yourself
msg.Logging = true
msg.silent = true

' Enter the sender data
msg.From = senderEmail

' Note that as addRecipient is a method and not
' a property, you do not use an equals ( = ) sign
msg.AddRecipient recipient

' The subject of the message
msg.Subject = subject

' And the body
msg.body = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf _
& "<html>" & vbCrLf _
& "<head>" & vbCrLf _
& " <title>Sample Message From ASP 101</title>" & vbCrLf _
& " <meta http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & vbCrLf _
& "</head>" & vbCrLf _
& "<body bgcolor=""#383838"">" & vbCrLf _
& " Dear " & strusername & vbCrLf _
& "You are receiving this receipt due to a recent update to your Monthly Subscription Fee." & vbCrLf _
& "Please find your receipt below;" & vbCrLf _
& " -----------------------------------------------------------------------------------" & vbCrLf _
& " Our Referance No : " & strID & vbCrLf _
& " Name: " & strname & vbCrLf _
& " Username: " & strusername & vbCrLf _
& " Item Title: Dirty Rats Clan - Monthly Subscription Fee " & vbCrLf _
& " ----------------------------------------------------------------------------------- " & vbCrLf _
& " Invoice Payment Date: " & vbCrLf _
& " Payment Cover Till: " & vbCrLf _
& " ----------------------------------------------------------------------------------- " & vbCrLf _
& " >> Amount Sent: " & stramount & vbCrLf _
& " >> Transfer Fee: " & strpaypalfee & vbCrLf _
& " >> Total Received: " & stramountreceived & vbCrLf _
& " ----------------------------------------------------------------------------------- " & vbCrLf _
& " " & vbCrLf _
& " This message (including any attachments) is confidential and may be " & vbCrLf _
& " legally privileged. If you are not the intended recipient, you should " & vbCrLf _
& " not disclose, copy or use any part of it - please delete all copies " & vbCrLf _
& " immediately and notify DIRTY RATS CLAN on FalseEmail@Dirtyratsclan.com " & vbCrLf _
& " " & vbCrLf _
& " " & vbCrLf _
& " Any information, statements or opinions contained in this message " & vbCrLf _
& " (including any attachments) are given by the author. They are not " & vbCrLf _
& " given on behalf of DIRTY RATS CLAN unless subsequently confirmed by an individual " & vbCrLf _
& " other than the author who is duly authorised to represent DIRTY RATS CLAN. " & vbCrLf _
& " " & vbCrLf _
& " DIRTY RATS CLAN is registered in the Republic of Ireland & United Kingdom." & vbCrLf _
& "</body>" & vbCrLf _
& "</html>" & vbCrLf

' Now send the message, using the indicated mailserver
If NOT blnSpam Then

if not msg.Send(strSMTPServer ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message Sent Sucessfully!"
end if

end if

%>
<body>
<a href="WITHHELD" target="_self">Return to Admin Menu </a>
</body>
</html>
<%
' Clear the object
set msg = nothing
%>

Thank you in advance.

Regards,
Sinister747