%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDO.message") objCDO.From = "website@pafabric.com" objCDO.To = "info@pafabric.com" objCDO.CC = "" objCDO.Subject = "A New Contact" objCDO.TextBody = "Name: "&Request.Form("name")&VbCrlf&"Company: "&Request.Form("company")&VbCrlf&"Address: "&Request.Form("address")&VbCrlf&"Address2: "&Request.Form("address2")&VbCrlf&"City: "&Request.Form("city")&VbCrlf&"State/Prov: "&Request.Form("state")&VbCrlf&"Zip: "&Request.Form("zip")&VbCrlf&"Country: "&Request.Form("country")&VbCrlf&"Tel: "&Request.Form("tel")&VbCrlf&"Fax: "&Request.Form("fax")&VbCrlf&"Email: "&Request.Form("email")&VbCrlf&"Message: "&VbCrlf&Request.Form("message") objCDO.Send() Set objCDO = Nothing Response.Redirect("thankyou.shtml") End If %>
© Copyright
2001 PA Fabric Outlet |