| |
|
 |
| <%if request.ServerVariables("CONTENT_LENGTH")=0 then%>
<%
else
%>
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from dinggou"
rs.open sql,conn,3,3
rs.addnew
rs("name")=request("username")
rs("danwei")=request("company")
rs("add")=request("address")
rs("youbian")=request("postcode")
rs("tel")=request("phone")
rs("chuanzhen")=request("fax")
rs("email")=request("mail")
rs("content")=request("comment")
rs.update
response.Redirect "chenggong.htm"
%>
<%
end if
%> |
|
|