Sub Globals
'Declare the global variables here.
Dim connected As Boolean
server="SQL5004.Smarterasp.net"
port="1433"
database="DB_9AACA3_alan"
login="DB_9AACA3_alan_admin"
pass="blq4ever"
End Sub
Sub App_Start
Form1.Show
Scanning.Focus
Mssql.New1
connected = Mssql.Open("Persist Security Info=false;Integrated Security=false;Server=" & server & ", " & port &"; initial catalog=" & database & "; user id="& login & "; password=" & pass)
If connected = True Then
msg.FontColor=0,0,255
msg.Text="server has been connect "
Else
msg.FontColor=255,0,0
msg.Text="Unable to connect to server"
Inbound.Enabled=False
Qutbound.Enabled=False
End If
End Sub