%@ CODEPAGE=65001 %>
<%
response.buffer=true
Response.Expires=0
function ShowOK
response.write "" & VbCRLF
end function
if request("test")="insert" then
' 新增
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from tconsult"
rs.open sql,conn,3,2
rs.addnew
rs("fname") = Request("name")
rs("faddress") = Request("address")
rs("fPhone") = Request("Phone")
rs("ffax") = Request("fax")
rs("femail") = Request("email")
rs("fprono") = Request("prono")
rs("fcompany") = Request("company")
rs("fmemo") = Request("memo")
rs("fip")=Request.ServerVariables("REMOTE_HOST")
rs("ftime")=now()
rs.update
rs.close
%>
EXAC INDUSTRY (H.K.) Co.,Limited_services
Services |
|
| EXAC INDUSTRY (H.K.) Co., Limited |
| If you have an interest to buy our products,please fill out the form below and send it to us and we will promptly respond to you... |
|
|