Links
<%
extIP = ""
on error resume next
dbname = "kmsm"
dbuserid = "kmsm"
dbpassword = "surework"
strConnect = "DSN=KWS;uid=" & dbuserid & ";pwd=" & dbpassword
set conn = server.CreateObject("ADODB.connection")
conn.CommandTimeout = 60
conn.open strConnect
set rec = Server.CreateObject("ADODB.recordset")
set rec = conn.Execute("select * from mscode where codtyp='CURRENT' and code='EXTIP'")
if not rec.EOF then
rec.movefirst
extIP = trim(rec("codval").value)
end if
rec.Close
set rec = nothing
conn.Close
set conn = nothing
if extIP = "" then
extIP = "kmsm.ath.cx"
end if
%>
