<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.inc"-->
<!--#include file="IASUtil.asp"-->
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>DTM Download Database (Data TeleMark ...ISDN-Wherever You Want
It)</title>
<base target="Hauptframe">
</head>
<body link="#C0403D" vlink="#C0403D" alink="#C0403D"
bgcolor="#C0C0C0" background="Graue_Struktur53A4.gif">
<table border="0" cellspacing="0" cellpadding="0"
width="580">
<tr>
<td align="center" valign="middle"><table
border="0" cellspacing="1">
<%TELCODEAKTUAL="49"%>
<%TELCODECHECK="49"%>
<%COUNTRYAKTUAL="Germany"%>
<%COUNTRYCHECK="Germany"%>
<%CONNECTIONOPEN="CLOSE"%>
<%if Request.Form ("telcode")<>"" then%>
<%TELCODEAKTUAL=Request.Form ("telcode")%>
<%CONNECTIONOPEN="OPEN"%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=dtm_log"
SQLStmt = "SELECT * FROM telcode "
SQLStmt = SQLStmt & "WHERE telcode LIKE '" &
TELCODEAKTUAL & "%%%' "
SQLStmt = SQLStmt & "ORDER BY telcode "
Set RS = Connection.Execute(SQLStmt)
%>
<%if CheckRS(RS) then%>
<%TELCODECHECK = RS("telcode")%>
<%COUNTRYCHECK = RS("country")%>
<%end if%>
<%end if%>
<%if Request.Form ("country")<>"" then%>
<%COUNTRYAKTUAL=Request.Form ("country")%>
<%CONNECTIONOPEN="OPEN"%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=dtm_log"
SQLStmt = "SELECT * FROM telcode "
SQLStmt = SQLStmt & "WHERE country LIKE '" &
COUNTRYAKTUAL & "%%%' "
SQLStmt = SQLStmt & "ORDER BY country "
Set RS = Connection.Execute(SQLStmt)
%>
<%if CheckRS(RS) then%>
<%TELCODECHECK = RS("telcode")%>
<%COUNTRYCHECK = RS("country")%>
<%end if%>
<%end if%>
<%if CONNECTIONOPEN="CLOSE" then%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=dtm_log"
%>
<%end if%>
<tr>
<td><table border="0" cellspacing="0"
cellpadding="0">
<tr>
<td><form method="POST" action="dialcode_copy(2).asp"
target="_self">
<table border="0" cellspacing="1">
<tr>
<td><select name="telcode" size="1"
tabindex="1">
<%
SQLStmt = "SELECT telcode FROM telcode "
SQLStmt = SQLStmt & "GROUP BY telcode "
SQLStmt = SQLStmt & "ORDER BY telcode "
Set RS = Connection.Execute(SQLStmt)
%><%
CurrentRecord = 0
Do While CheckRS(RS)%><%if RS("telcode")=TELCODECHECK
then%><%SELECTEDAKTUAL="selected
"%><%else%><%SELECTEDAKTUAL=" "%><%end if%> <option
<%=SELECTEDAKTUAL%>value="<%=RS
("telcode")%>">+<%=RS ("telcode")%></option>
<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%> </select></td>
<td><input type="submit" value="GO!" name="GO"
tabindex="3"></td>
</tr>
</table>
</form>
</td>
<td><form method="POST" action="dialcode_copy(2).asp"
target="_self">
<table border="0" cellspacing="1">
<tr>
<td><select name="country" size="1"
tabindex="1">
<%
SQLStmt = "SELECT * FROM telcode "
SQLStmt = SQLStmt & "ORDER BY country "
Set RS = Connection.Execute(SQLStmt)
%><%
CurrentRecord = 0
Do While CheckRS(RS)%><%if RS("country")=COUNTRYCHECK
then%><%SELECTEDAKTUAL="selected
"%><%else%><%SELECTEDAKTUAL=" "%><%end if%> <option
<%=SELECTEDAKTUAL%>value="<%=RS ("country")%>"><%=RS
("country")%> <%if RS("gmtdifference")<>""
then%> [time:
<%=FormatDateTime(DateAdd("h",RS("gmtdifference")-1,Now),4)%>]<%else%><%="
"%><%end if%></option>
<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%> </select></td>
<td><input type="submit" value="GO!" name="GO"
tabindex="3"></td>
<td><font face="Verdana, Arial, Helvetica"
size="1"><strong><em><nobr>Country/Dial Code<br>
Converter by DTM</nobr></em></strong></font></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>