<%@ Language="VBScript" %> <% '**************************************** ' Capture User Info & Time '**************************************** sv1 = request.servervariables("HTTP_USER_AGENT") sv2 = request.servervariables("REMOTE_ADDR") mydate = (FormatDateTime(Now(),1) & " " ) mytime = (FormatDateTime(Now(),3) & " " ) '**************************************** ' Capture URL '**************************************** t1 = request.servervariables("SERVER_NAME") t2 = request.servervariables("SCRIPT_NAME") t3 = "http://" & t1 & t2 set rsinfo = Request.form 'Following line must contain "Name" (B1) AND "Value" (Submit Form) of the Submit button If request("submitButtonName") = "Send Question" then '**************************************** ' Create Mailer Object '**************************************** set mailer = server.createobject("SMTPsvg.mailer") mailer.ReplyTo = rsinfo("email") mailer.fromaddress = "forms@mmiusa.com" mailer.fromname = rsinfo("name") mailer.remotehost = "mail.mmiusa.com" mailer.subject = "Wine Advice" '**************************************** ' Change the following to the recipient's mailing address '**************************************** mailer.addrecipient "Wine Hobbyist", "john@thewinehobbyist.com" 'mailer.addrecipient "MMI", "dfontes@mmiusa.com" strMsgHeader = "Form Information Follows: " & vbCrLf for i = 1 to Request.Form.Count strMsgInfo = strMsgInfo & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbCrLf next strMsgFooter = vbCrLf & "End of form information" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = " " Mailer.BodyText = "USER INFORMATION:" Mailer.BodyText = sv1 Mailer.BodyText = sv2 Mailer.BodyText = mydate Mailer.BodyText = mytime Mailer.BodyText = t3 'Mailer.SendMail if Mailer.SendMail then response.redirect "thanks.html" else msg = "

Please verify your e-mail address!

Error was " & Mailer.Response & "
You may use your Back Button on you browser to return to the completed form.

" end if '**************************** 'else end if %> The Wine Hobbyist


Home
Wine Tips
Tasting Notes
Articles
Online Resources
Wine Events
Expert Advice
About the Author
Contact Us
Search the Site

Here at The Wine Hobbyist, we are interested in furthering our reader's enjoyment and knowledge of wine and wine collecting. We will always try to keep our articles and wine tips as fresh and interesting as we can, all the while writing about the widest range of wine related topics possible. No matter how hard we try to fulfill your thirst for all things wine, we will undoubtedly overlook some of the finer points of this vast hobby of ours. For this reason, it is crucial that our readers feel comfortable to contribute to the discussion by asking questions. Whether you want to ask about which glass to use for Chardonnay, or how long it takes for grapes to reach peak ripeness on the vine, we are here to answer all of your questions.

Use the form below to submit your questions to The Wine Hobbyist. Once we have formulated an answer we will post the response here in the "Expert Advice" column. You will also receive a personal email from us containing your original question and the answer. Please note that your name and email address will never be posted on the site unless you give your expressed permission, and we will never share your email address with anyone.

Name

Email

Question