<%@LANGUAGE="VBSCRIPT"%>
<%
Validated=True
If Request("SUBMIT.X")<>"" Then
ValStr=""
Validated=True
If Trim(Request("shipto"))="" Or Trim(Request("billto"))="" Then
' Validated=False
ValStr=ValStr&"- Please fill in all fields "
End If
End If
%>
<%
If Request("SUBMIT.X")<>"" And Validated Then
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.To = "hopegreen@mindspring.com"
Mail.From = "hopegreen@mindspring.com (Web Order)"
Mail.Subject = "Purchase Order"
Body = "Bill To: "
Body = Body & Request("billto") & Chr(10)
Body = Body & Request("billaddress") & Chr(10)
Body = Body & Request("billcity") & ", "
Body = Body & Request("billstate") & " "
Body = Body & Request("billzip") & Chr(10)
Body = Body & Request("billphone") & Chr(10)
Body = Body & Chr(10) & "Ship To: "
Body = Body & Request("shipto") & Chr(10)
Body = Body & Request("shipaddress") & Chr(10)
Body = Body & Request("shipcity") & ", "
Body = Body & Request("shipstate") & " "
Body = Body & Request("shipzip") & Chr(10)
Body = Body & Request("shipemail") & Chr(10)
Body = Body & Request("manu") & Chr(10)
Body = Body & Chr(10) & "Items Ordered:" & Chr(10)
For i=1 To 15
If Trim(Request("qty"&CStr(i))) <> "" Then
Body = Body & CStr(i) & ". "
Body = Body & "Style:" & Request("style"&CStr(i)) & "; "
Body = Body & "Price:" & Request("price"&CStr(i)) & "; "
Body = Body & "Color:" & Request("color"&CStr(i)) & "; "
Body = Body & "Qty:" & Request("qty"&CStr(i)) & "; "
Body = Body & "Desc:" & Request("desc"&CStr(i)) & "; "
Body = Body & "Size:" & Request("size"&CStr(i)) & "; "
Body = Body & "Total:" & Request("total"&CStr(i)) & "; " & Chr(10)
End If
Next
Mail.Body = Body
'proceed sending email
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write("There were problems sending mail: ")
Response.Write(Err.Description)
End If
On Error Goto 0 ' cancel On Error Resume Next
Set Mail = Nothing
End If
%>
Maternity Wholesale Clothing, Apparel, Maternity Wear
