%@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 = "Feedback at VikingArt.com" objCDO.Body = "Name: " + Request.Form("Name") + chr(13) + "E-mail: " + Request.Form("Email") + chr(13) + "Notes: " + Request.Form("Notes") objCDO.Send() Set objCDO = Nothing Response.Redirect("http://www.vikingart.com/Feedback_sent.asp") End If %>
![]() |
|
||||||||||||||
|
|
|
||||||||||||||||||||||||||||||
|
|
Jewelry
| Prints
| Paintings |
Clothes
| Cards
| Glass
| Ceramics
|
![]() |