% @language="VBSCRIPT" %>
<%
Set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.To = "picorders@dticentral.com"
objMail.Subject = "Online Orders"
objMail.From = "orders@piccadillygallery.com"
dim message
dim T1, T2, T3, T4, T5, T6, T7, T8, S1
T1 = request.form("T1")
T2 = request.form("T2")
T3 = request.form("T3")
T4 = request.form("T4")
T5 = request.form("T5")
T6 = request.form("T6")
T7 = request.form("T7")
T8 = request.form("T8")
S1 = request.form("S1")
message = "Name: " & T1 & " Address: " & T2 & " " & "City: " & T3
message = message & " State: " & T4 & " Zip: " & T5 & " Home Phone: " & T6 & "
Work Phone " & T7
message = message & " Email: " & T8 & " Comments: " & S1
'message = "Name:" & T1 & "
Address:" & T2 & "
" &
"City:
" & T3
'message = message & "
State:" & T4 & "
Zip:" & T5 & "
Home
Phone: " & T6 & "
Work Phone " & T7
'message = message & "
Email:" & T8 & "
Comments:
" & S1
objMail.Body = message
objMail.Send
Set objMail = Nothing
%>
|
|
|
Ordering and Comments Page <% response.redirect "default.htm" %>. Or to place an order call: 1-800-501-4278 or 507-689-0230 or email: rosie@piccadillygallery.com Minnesota residents will be charged sales tax and shipping will be charged. |
|
We gladly accept Visa |