<% if request.querystring("enter")="true" Then
Call ThankYou
Else
Call ShowForm
End if
%>
<% sub ShowForm %>
Information Request Form Please provide us with the following information (if applicable) so that we may process your request. <% end sub %> <% sub ThankYou %> <% firstname = Request.Form("firstName") lastname = Request.Form("lastName") email = Request.Form("email") web = Request.Form("web") instname = Request.Form("instName") infotype = Request.Form("infoType") insttype = Request.Form("instType") comments = Request.Form("comments") find = Request.Form("find") %> Thank you, <% = firstname %>, for filling out the form. You should be receiving a personal reply soon. <% 'dim is used to declare your variable(s). In this case I have made up a variable called messagetxt 'emailtxt is just a variable I have used to store the email message dim emailtxt emailtxt = "Somebody has submitted the Meinwald Group Information Request Form." & vbCrLf emailtxt = emailtxt & "The person entered the following information:" & vbCrLf & vbCrLf emailtxt = emailtxt & "Name: " & firstname & " " & lastname & vbCrLf emailtxt = emailtxt & "E-mail Address: " & email & vbCrLf emailtxt = emailtxt & "Web Address: " & web & vbCrLf emailtxt = emailtxt & "Institution Type: " & insttype & vbCrLf emailtxt = emailtxt & "Name of Institution: " & instName & vbCrLf emailtxt = emailtxt & "Specific Request: " & infotype & vbCrLf emailtxt = emailtxt & "How found: " & find & vbCrLf emailtxt = emailtxt & "General Questions or Comments: " & comments & vbCrLf Dim SendMail 'Don't change anything on the next line... This is using the CDONTS component to send the email Set SendMail = Server.CreateObject("CDONTS.NewMail") 'The line below has four parts (From, To, Subject, Body) SendMail.Send email,"mrw11@cornell.edu","Meinwald Group Web Form",emailtxt %> <% end sub %> |