|
--|
Status ADSL naročnika |--
|
<% If Request.Form("Second_Name")<>"" then %>
<%
Dim cnnSimple
Dim rstSimple
Dim c
Dim b
Dim a
Dim d
dim adslmozen
dim paket
dim status
b = 1
c = 1
adslmozen = 1
Kriterij=Request.Form("Second_Name")
Set rstSimple = app_connection.Execute("SELECT * FROM ADSL.CENTRAL WHERE isdn = " & Kriterij)
%>
<%
if not rstSimple.EOF then
adslmozen = rstSimple.Fields("status1").Value
paket = rstSimple.Fields("status2").Value
status = rstSimple.Fields("status3").Value
else
Response.write "Telefonska številka v ADSL bazi NE OBSTAJA... - vpisi novo tel. st."
Response.end
end if
If adslmozen = "0" then Response.Write "ADSL je NEOBDELANA"
If adslmozen = "1" then Response.Write "ADSL je OMOGOCEN"
If adslmozen = "2" then Response.Write "ADSL NI OMOGOCEN"
If adslmozen = "4" then Response.Write "ADSL je POGOJNO MOZEN DA(ni se ISDN ali bo v kratkem)"
If paket = "1" then Response.Write " Paket za FIZICNE osebe"
If paket = "2" then Response.Write " Paket za PRAVNE osebe"
If paket = "3" then Response.Write " Paket LAN(FIKSNI IP)"
If status = "0" then Response.Write " Brez"
If status = "1" then Response.Write " Poslana pogodba"
If status = "2" then Response.Write " Prejeta pogodba"
if status = "3" then Response.Write " Zahteva na Telekomu"
if status = "4" then Response.Write " Potrjena zahteva"
if status = "5" then Response.Write " ZGRAJEN PRIKLJUCEK"
if status valuetype="ref" value="lords%20acre%205.jpg">
Examples of Crafts and Goods
from Previous Lord's Acre Sales
Lord's Acre Tips
New Person's Guide to Lord's Acre and
Pounds and Talents
NEW!
Pictures from 2010 Lord's Acre
Pictures
from the 2009 Lord's Acre
Pictures from the
2008 Lord's Acre
2007 Lord's Acre
2006 Lord's Acre
2005 Lord's Acre
2003 Lord's Acre
2002 Lord's
Acre
