телефонная база через WAP
<%
Response.ContentType = "text/vnd.wap.wml"
c34=chr(34)
crlf=chr(13)+chr(10)
v=request("number")
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=sqloledb;" & _
"Data Source=sgtrk-iscsi;" & _
"Initial Catalog=Tel;" & _
"Trusted_Connection=yes;"
Set rs = conn.execute ("SELECT * FROM File1 Where TEL='" + v +"' ORDER BY 1;")
if not rs.eof then
rs.movefirst
tel=v
if rs.fields(1).value <> vbnull then ul=rs.fields(1).value else ul=""
if rs.fields(2).value <> vbnull then vid_st=rs.fields(2).value else vid_st=""
if rs.fields(3).value <> vbnull then dom=rs.fields(3).value else dom=""
if rs.fields(4).value <> vbnull then korp = rs.fields(4).value else korp =""
if rs.fields(5).value <> vbnull then kv=rs.fields(5).value else kv=""
if rs.fields(6).value <> vbnull then fam=rs.fields(6).value else fam=""
if rs.fields(7).value <> vbnull then i=rs.fields(7).value else i=""
if rs.fields(8).value <> vbnull then o=rs.fields(8).value else o=""
if rs.fields(9).value <> vbnull then dataust=rs.fields(9).value else dataust=""
if rs.fields(10).value <> vbnull then datadog=rs.fields(10).value else datadog =""
if rs.fields(11).value <> vbnull then os=rs.fields(11).value else os=""
if i="" or o="" then man = fam else man = fam +" " + i + "." + o + "."
if korp<>"" then
addr=vid_st + " " + ul +" " + dom +"/"+ korp +" - "+ kv
else
if kv="" then
addr=vid_st +" " + ul + " " + dom
else
addr=vid_st + " " + ul +" " + dom + "- "+ kv
end if
end if
response.write "<?xml version="+c34+"1.0"+C34+" ?><!DOCTYPE wml PUBLIC "+c34+"-//WAPFORUM//DTD WML 1.1//EN"+c34+" "+c34+"http://www.wapforum.com/DTD/wml_1.1.xml"+c34+"><wml>"
response.write "<card id="+C34+"Start"+C34+" title="+c34+"Telephone base"+c34+">"
response.write "<do type="+c34+"accept"+c34+"><go href="+c34+"/index.asp"+c34+"></go></do>"
response.write "Phone:"+tel+"<br>"
response.write "Registered to:" + man+"<br>"
response.write "Address:"+os +", " + addr+"<br>"
if dataUst<>"" then response.write "Set:" + data_ust+"<br>"
if data_dog<>"" then response.write "Order:" +data_dog+"<br>"
response.write "<br>"
response.write "</card></wml>"
else
response.write "<?xml version="+c34+"1.0"+C34+" ?><!DOCTYPE wml PUBLIC "+c34+"-//WAPFORUM//DTD WML 1.1//EN"+c34+" "+c34+"http://www.wapforum.com/DTD/wml_1.1.xml"+c34+"><wml>"
response.write "<card id="+C34+"Start"+C34+" title="+c34+"Telephone base"+c34+">"
response.write "<do type="+c34+"accept"+c34+" name="+c34+"Done"+c34+"><go href="+c34+"/"+c34+"></go></do>"
response.write "<p>No such phone</P></card></wml>"
end if
set rs = nothing
set conn = nothing
else
response.write "<?xml version="+c34+"1.0"+C34+" ?><!DOCTYPE wml PUBLIC "+c34+"-//WAPFORUM//DTD WML 1.1//EN"+c34+" "+c34+"http://www.wapforum.com/DTD/wml_1.1.xml"+c34+"><wml>"
response.write "<card id="+C34+"Start"+C34+" title="+c34+"Telephone base"+c34+">"
response.write "<do type="+c34+"accept"+C34+">"
response.write "<go href="+c34+"/index.asp?number=$phone"+c34+"></go></do>"
response.write "<input name="+c34+"phone"+c34+" value="+c34+c34+" type="+c34+"text"+c34+" format="+c34+"7N"+c34+"></input></card></wml>"
end if
Response.End
%>