<%ConnectDatabase%>
<%
if request.QueryString("action")="addsave" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from msg"
rs.open sql,conn,1,3
rs.addnew
rs("companyname")=request("companyname")
rs("tel")=request("tel")
rs("danwei")=request("danwei")
rs("add")=request("add")
rs("techang")=request("techang")
rs("aihao")=request("aihao")
rs("email")=request("email")
rs("youbian")=request("youbian")
rs("note")=request("note")
if request("class")="" then
rs("class")="123"
else
rs("class")=request("class")
end if
rs.update
rs.close
response.Write("")
response.End()
end if
%>
