Catalogue Request

<%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("Email") objCDO.To = "info@vikingart.com" objCDO.Subject = "Catalogue Request" objCDO.Body = "Name: " + Request.Form("Name") + chr(13) + "Address: " + Request.Form("Address") + chr(13) + "City: " + Request.Form("City") + chr(13) + "State: " + Request.Form("State") + chr(13) + "Zip: " + Request.Form("Zip") + chr(13) + "Country: " + Request.Form("Country") + chr(13) + "Phone: " + Request.Form("Phone") + chr(13) + "Kalevala: " + Request.Form("Kalevala") + chr(13) + "Jewelry: " + Request.Form("Jewelry") + chr(13) + "Clothes: " + Request.Form("Clothes") + chr(13) + "Paintings: " + Request.Form("Paintings") + chr(13) + "Glass: " + Request.Form("Glass") + chr(13) +"All: " + Request.Form("All") + chr(13) + "Notes: " + Request.Form("Notes") + chr(13) + "Where did you hear about Vikingart.com: " + Request.Form("how") + chr(13) + "Other: " + Request.Form("Other") objCDO.Send() Set objCDO = Nothing Response.Redirect("http://www.vikingart.com/Forms/Request_Submitted.asp") End If %> Catalogue Request


Viking Art news letter

	Advanced Search

	Home


	Web Shop Catalogues Contact Us Feedback



		YOUR CONTACT INFORMATION

		Required fields are marked in bold.
Name
Address
City
State/Prov/Region
Zip/Postal
Country
E-mail
Phone



		WHAT PRUDUCTS ARE YOU INTERESTED IN?
		Kalevala Jewelry
		Viking Replica Jewelry
		Clothing
		Paintings
		Glass
		All of the above




		NOTES AND QUESTIONS
Notes

		Send catalouges by e-mail (PDF). I like to subscribe to VikingArt.com newsletter.
		HOW DID YOU HERE ABOUT VIKINGART.COM?

Other

INSTRUCTIONS

If you like to receive PDF catalogues by e-mail your address information is not necessary, but remember to type your name and e-mail address. If you don't type an e-mail address the information will not be sent.