<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Feedback-<%=CompanyName%>
<%
If Request("action")="submit0k" Then
f_name=Trim(Request("f_name"))
f_sex=Trim(Request("f_sex"))
f_job=Trim(Request("f_job"))
f_tel=Trim(Request("f_tel"))
f_mail=Trim(Request("f_mail"))
f_phone=Trim(Request("f_phone"))
f_url=Trim(Request("f_url"))
f_address=Trim(Request("f_address"))
f_ma=Trim(Request("f_ma"))
f_title=Trim(Request("f_title"))
content=Trim(Request("content"))
If f_name="" Then
response.Write "":response.End
End If
If f_job="" Then
response.Write "":response.End
End If
If f_tel="" Then
response.Write "":response.End
End If
If f_mail="" Then
response.Write "":response.End
End If
If f_title="" Then
response.Write "":response.End
End If
If content="" Then
response.Write "":response.End
End If
If f_phone="" Then
response.Write "":response.End
End If
If f_url="" Then
response.Write "":response.End
End If
If f_address="" Then
response.Write "":response.End
End If
If f_ma="" Then
response.Write "":response.End
End If
Date_Time=now()
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty then
Ip=Request.ServerVariables("REMOTE_ADDR")
else
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * from FeedBack",Conn,1,3
Rs.Addnew
Rs("Date_Time")=Date_Time
Rs("Ip")=Ip
Rs("backer_name")=f_name
Rs("backer_companyname")=f_job
Rs("backer_addr")=f_address
Rs("backer_fax")=f_phone
Rs("backer_siteurl")=f_url
Rs("backer_sex")=f_sex
Rs("backer_tel")=f_tel
Rs("backer_type")=f_title
Rs("backer_email")=f_mail
Rs("backer_content")=Chgstr(content)
Rs.Update
Rs.Close
Set Rs = Nothing
response.Write("")
End If
%>
