<!--#include file="top.asp"-->
<%colxr=request("colxr")
colxrsex=request("colxrsex")
cotelq=request("cotelq")
cotel=request("cotel")
cofaxq=request("cofaxq")
cofax=request("cofax")
mail=request("mail")
coyb=request("coyb")
coaddress=request("coaddress")
colxother=request("colxother")
Oicq=request("Oicq")

if cofax<>"" or cofaxq<>"" then
if cofaxq="" or cofax="" or len(cofaxq)<3 or len(cofax)<7 then
errstyle="·请输入正确的企业传真及区号！"
scripterr
end if
end if
if coyb<>"" then
if len(coyb)<>6 or IsNumeric(coyb)=0 then
errstyle="·请输入正确的企业所在地区邮编！"
scripterr
end if
end if

if cofaxq="" then cofaxq=null
if cofax="" then cofax=null
if coyb="" then coyb=null
if colxother="" then colxother=null
if Oicq="" then Oicq=null

set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from dlxf_yp where dlxf_id="&session("id")
rs.open sql,conn,1,3
rs("dlxf_colxr")=colxr
rs("dlxf_colxrsex")=colxrsex
rs("dlxf_cotelq")=cotelq
rs("dlxf_cotel")=cotel
rs("dlxf_cofaxq")=cofaxq
rs("dlxf_cofax")=cofax
rs("dlxf_mail")=mail
rs("dlxf_coyb")=coyb
rs("dlxf_coaddress")=coaddress
rs("dlxf_colxother")=colxother
rs("dlxf_key")=cityypkey
rs("dlxf_Oicq")=Oicq
rs.update
rs.close
set rs=nothing

session("coname")=""

if cityypkey=1 then
response.redirect"ok.asp?url=lcdlx.asp"
elseif cityypkey=0 then
response.redirect"ok.asp?url=lcdlx.asp&key=yes"
end if%>