<% 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.
First Name:
Last Name:
E-Mail Address:
Web Address:
Type of Institution: Academic Commercial
Name of Institution:
Status (if academic):
How did you find our site? (Check all that apply): Search Engine Link Associate Department Publication Other

What would you like to know more about?


Questions or comments about our site:


<% 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.

Back to Meinwald Group Home

<% '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 %>