<%
dim Name,Company,Tel,Email,Website,Question,Comment,IP,Submit
Name = Request.Form("Name")
Company = Request.Form("Company")
Tel = Request.Form("Tel")
Email = Request.Form("Email")
Website = Request.Form("Website")
Question = Request.Form("Question")
Comment = Request.Form("Comment")
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
Submit = 0
if Name<>"" then
strQ = "insert into apply(Name,Company,Tel,Email,Website,Question,Comment,IP,CreateDate) values('" & (FormatStr(Name)) + "','" & (FormatStr(Company)) + "','" & (FormatStr(Tel)) + "','" & FormatStr(Email) + "','" & (FormatStr(Website)) + "','" & FormatStr(Question) + "','" & FormatStr(Comment) & "','" & FormatStr(IP) & "','" & now() & "')"
Conn.Execute strQ
Submit = 1
end if
Function FormatStr(Str)
if not IsNull(str) then
FormatStr = replace(Str,"'","''")
else
FormatStr = ""
end if
End Function
%>
Tidemedia
