SQL + WAP

Михаил — Thu, 17 Feb 2005 15:42:00 GMT

телефонная база через 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
%>

Новое утро

Михаил — Thu, 27 Jan 2005 08:29:00 GMT

Новое настроение. Новый блог. Почти новая жизнь.

Белый котик

SQL + WAP

Новое утро