title: Volusion form not sending email
body: <p>I am new here and not sure if I am post this correctly. I have created a custom form for my site and when submitted it does not send an email to the email specified. I have searched and tried multiple things to try and get it to work.</p>
  
  <p>My form is:</p>
  
  <pre><code>&lt;form name="myForm" action="subform.asp" onSubmit="return validateForm();" method="post"&gt;
  First Name:&lt;input type="text" size="30" name="fname" maxlength="5"&gt;&lt;br&gt;
  Last name:&lt;input type="text" size="30" name="lname" maxlength="30"&gt;&lt;br&gt;
  Email:&lt;input type="text" size="30" name="email" maxlength="30"&gt;&lt;br&gt;
  Comments:&lt;textarea rows="2" cols="22" name="comments"&gt;&lt;/textarea&gt;
  &lt;input type="submit" value="Submit"&gt;
  &lt;/form&gt;
  </code></pre>
  
  <p>My subform.asp:</p>
  
  <pre><code>&lt;% 
  Option Explicit
  Dim referer
  Dim siteurl
  Dim email_from
  Dim email_to
  Dim strMsg
  Dim vsmtpKey
  
  referer = Request.ServerVariables("HTTP_REFERER")
  siteurl = "www.mysite.com"
  email_from = "email@mysite.com"
  email_to = "email@mysite.com"
  vsmtpKey = "my key"
  
  
  strMsg = "First Name : " &amp; request.form("fname") &amp; "&lt;br&gt;" 
  strMsg = "Last Name : " &amp; request.form("lname") &amp; "&lt;br&gt;" 
  strMsg = "Email : " &amp; request.form("email") &amp; "&lt;br&gt;" 
  strMsg = "Comments : " &amp; request.form("comments") &amp; "&lt;br&gt;" 
  
  if InStr(referer, siteurl ) &gt; 0 Then
  
      Dim HTTPRequest
      Set HTTPRequest = CreateObject("WinHTTP.WinHTTPRequest.5.1")
      HTTPRequest.Open "POST", "http://" &amp; Request.ServerVariables("LOCAL_ADDR") &amp; "subform.asp", False
      HTTPRequest.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      HTTPRequest.SetRequestHeader "Host", Request.ServerVariables("SERVER_NAME")
      HTTPRequest.Send _
          "VsmtpKey=" &amp; vsmtpKey &amp;_
          "&amp;Subject=" &amp; Server.URLEncode("Mailing List Submission") &amp;_
          "&amp;FromEmailAddress=" &amp; email_from &amp;_
          "&amp;ToEmailAddress=" &amp; email_to &amp;_
          "&amp;Body_HTML=" &amp;  Server.URLEncode(strMsg)
  
      response.write(HTTPRequest.ResponseText)
      Set HTTPRequest = Nothing
  End If
  
  %&gt;
  </code></pre>