|
% sub sendform Dim strFName, strLName, strStreet, strCity, strState, strZip, strPhone, strCountry, StrEmail, StrComments, strTo, strBody, strOrder strFName = Trim(Request.Form("FirstName")) strLName = Trim(Request.Form("LastName")) strStreet = Trim(Request.Form("Street")) strCity = Trim(Request.Form("City")) strState = Trim(Request.Form("State")) strZip = Trim(Request.Form("Zip")) strCountry = Trim(Request.Form("Country")) strEmail = Trim(Request.Form("VEmail")) strPhone = Trim(Request.Form("Phone")) strOrder = Trim(Request.Form("Order")) strComments = Trim(Request.Form("Comments")) strTO = "mlutz@craftworldmall.com" strBody ="" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & "
" & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "
First Name: " & strFname & "
" & vbCrLf _ & "Last Name: " & strLname & "
" & vbCrLf _ & "Street: " & strStreet & "
" & vbCrLf _ & "City: " & strCity & "
" & vbCrLf _ & "State: " & strState & "
" & vbCrLf _ & "Zip Code: " & strZip & "
" & vbCrLf _ & "Country: " & strCountry & "
" & vbCrLf _ & "Email: " & strEmail & "
" & vbCrLf _ & "Phone: " & strPhone & "
" & vbCrLf _ & "Order Number: " & strOrder & "
" & vbCrLf _ & "Comments: " & strComments & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "