|
<%
if request.QueryString("action")="submit" then
strSQL="select * from web_guestbook"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strsql,conn,1,3
rs.addnew
rs("g_Name")=request.Form("g_Name")
rs("g_dw")=request.Form("g_dw")
rs("g_tel")=request.Form("g_tel")
rs("g_mobile")=request.Form("g_mobile")
rs("g_email")=request.Form("g_email")
rs("g_addr")=request.Form("g_addr")
rs("g_fax")=request.Form("g_fax")
rs("g_oicq")=request.Form("g_oicq")
rs("g_msn")=request.Form("g_msn")
rs("g_msg")=request.Form("g_msg")
rs("g_ip")=request.ServerVariables("REMOTE_ADDR")
rs.update
response.Write("")
end if
%>
|
