<%
Set rs = Server.CreateObject("ADODB.Recordset")
Response.Write Request.Form("txtUserID")
if trim(Request.Form("txtUserID"))="" then
else
strSQL = "SELECT * FROM partner where userid='" & trim(Request.Form("txtUserID")) & "'"
rs.Open strSQL, adoCon,3,3
if not (rs.EOF and rs.BOF) then
%>
<%
else
strHostIP = Request.ServerVariables("REMOTE_HOST")
rs.AddNew
rs.Fields("Name") = trim(Request.Form("txtName"))
rs.Fields("Desig") =trim(Request.Form("txtdesg"))
rs.Fields("Company")=trim(Request.Form("txtCompany"))
rs.Fields("addr")=trim(Request.Form("txtaddr"))
rs.Fields("Country")=trim(Request.Form("txtCountry"))
rs.Fields("zip")=trim(Request.Form("txtzip"))
rs.Fields("Tel")=trim(Request.Form("txtTel"))
rs.Fields("Mobile")=trim(Request.Form("txtMobile"))
rs.Fields("email")=trim(Request.Form("txtEmail"))
rs.Fields("userid")=trim(Request.Form("txtUserID"))
a=trim(Request.Form("txtPwd"))
rs.Fields("pwd")=Encrypt(a,"100")
rs.Fields("HostIP")=strHostIP
if Request.Form("chkcd")<>"" then
rs.Fields("cd")=1
end if
if Request.Form("chkbrochure")<>"" then
rs.Fields("brochure")=1
end if
rs.Update
set rs=nothing
set adocon=nothing
Response.Redirect ("res.asp")
end if
end if
%>