<!--#include file="conn.asp" -->
<%
    dim loginname,pw,sex,realname,job,companyName,address,country,postcode,phone1,phone2,phone3,fax1,fax2,fax3,mobile,weisite,email,contact
    Dim sql
    Dim bbsloginname,bbspassword
    loginname = request("loginname")
    pw = request("password")
    realname = request("realname")
    job = request("job")
    companyName = request("companyName")
    country = request("country")
    address = request("address")
    postcode = request("postcode")
    mobile = request("mobile")
    phone1 = request("phone1")
    phone2 = request("phone2")
    phone3 = request("phone3")
    fax1 = request("fax1")
    fax2 = request("fax2")
    fax3 = request("fax3")
    weisite = request("weisite")
    email = request("email")
    contact = request("contact")

    dim phone,fax

    phone = phone1 & "-" & phone2 & "-" & phone3
    fax = fax1 & "-" & fax2 & "-" & fax3

    bbsloginname = loginname
    bbspassword = pw
    
    sql = "insert into [client](realname,companyName,companyAddress,country,postcode,phone,fax,mobile,weisite,email,createDate,loginname,[password],bbsloginname,bbspassword,job,usertype) values("
    sql = sql & "'" & realname & "',"
    sql = sql & "'" & companyName & "',"
    sql = sql & "'" & address & "',"
    sql = sql & "'" & country & "',"
    sql = sql & "'" & postcode & "',"
    sql = sql & "'" & phone & "',"
    sql = sql & "'" & fax & "',"
    sql = sql & "'" & mobile & "',"
    sql = sql & "'" & weisite & "',"
    sql = sql & "'" & email & "',"
    sql = sql & "now(),"
    sql = sql & "'" & loginname & "',"
    sql = sql & "'" & pw & "',"
    sql = sql & "'" & bbsloginname & "',"
    sql = sql & "'" & bbspassword & "',"
    sql = sql & "'" & job & "',"
    sql = sql & "2)"
    response.Write(sql & "<br/>")
    conn.execute sql,RowsAffected
    if RowsAffected > 0 then
        response.Write(RowsAffected & "行插入<br/>")
        sql = "select id from [client] where loginname = '" & loginname & "'"
        response.Write(sql)
        set rs1 = conn.execute sql    '这行是报错的        
                  if not rs1.eof then
            session("clientID") = rs1("id")
            response.Redirect("Visitor4_1.asp")
        end if
        rs1.close
        if session("clientID") <> "" then
        '    response.Redirect("Visitor4_1.asp")
        else
            response.Write("<script type='text/javascript'>alert('数据处理错误...\n稍候再试...');//history.back(-1);</script>")
        end if
    else
        response.Write("<script type='text/javascript'>alert('数据处理错误...\n稍候再试...');//history.back(-1);</script>")
    end if
%>