<%@ LANGUAGE="VBSCRIPT" %><%
vcontact_type = Request.Form("contact_type")
vname = Request.Form("name")
vcomp_name = Request.Form("comp_name")
vemail = Request.Form("email")
vphone = Request.Form("phone")
vsubject = Request.Form("subject")
vquestion = Request.Form("question")
Set ExchangeNetSQL = Server.CreateObject("ADODB.Connection")
ExchangeNetSQL.Open "thaiindustry", "tinhosting", "tinhosting"
sql1 = "INSERT INTO ExUserContact " & _
" (Name, Company, Email, Phone, Subject, Question, ContactID)" & _
" VALUES ('"&_
vname &"','"& vcomp_name &"','"&_
vEmail &"','"& vPhone &"','"& vSubject &"','"&_
trim(vQuestion) &"','"& vContact_type &"')"
Set RS = ExchangeNetSQL.Execute(sql1)
'---------------------------------------------------
%>
Demo Registration
Demo Registration
| Name |
<%=vname%> |
| Company Name |
<%=vComp_name%> |
| Email |
<%=vEmail%> |
| Telephone |
<%=vPhone%> |
| Subject |
<%=vSubject%> |
| Question |
<%=vQuestion%> |