%@ Language = "VbScript"%>
<%Response.Buffer = true%>
<%
if request.form("submit3")="Submit" then
Set objSend = Server.CreateObject("CDONTS.Newmail")
strBody = ""
''For each item in Request.Form
'' if item <> "Submit3" then
''strLineItem = item &" : " & _
''Request.Form(item) & vbCrLf
''strBody = strBody & strLineItem
'';end if
strBody = "1. Company Name " &" : "& Request.Form("Name") & vbCrLf
strBody =strBody & "2. Person Name " &" : "& Request.Form("person_name") & vbCrLf
strBody =strBody & "3. Designation " &" : "& Request.Form("designation") & vbCrLf
strBody =strBody & "4. Address " &" : "& Request.Form("address") & vbCrLf
strBody =strBody & "5. City " &" : "& Request.Form("city") & vbCrLf
strBody =strBody & "6. Country " &" : "& Request.Form("country") & vbCrLf
strBody =strBody & "7. Telephone " &" : "& Request.Form("telephone") & vbCrLf
strBody =strBody & "8. Fax " &" : "& Request.Form("fax") & vbCrLf
strBody =strBody & "9. Email " &" : "& Request.Form("email") & vbCrLf
strBody =strBody & "10. Enquiry " &" : "& Request.Form("enquiry") & vbCrLf
''Next
objSend.From = Request.form ("email")
objSend.To = "info@swordofmelody.com"
objSend.Subject = "Sword of Melody-Enquiry"
objSend.BodyFormat = 1
objSend.Body = strBody
objSend.Send
response.Cookies("name")= Request.form ("Name")
response.Cookies("email")= Request.form ("email")
response.redirect "confirm.asp"
%>
<%=strBody%>
<% else %>
Custom Software Developer, Developing Games for Children & Training Software - SOM
| |
|
|
|
|
Contact
Us
|
 |
|
Sword
of Melody Corporation
|
|
2235
E. Flamingo Road
Suite 201G
Las Vegas NV 89119, USA
Tel: (702) 940-7816
Fax: (512) 233-0924
|
|
|
|
|
|
| |
|
|
|
Copyright©2004.
Sword of Melody Corporation
|
|
|
<%
end if
%>