|
|
|
|
|
| | |
| |
Active Server Pages ASP programs help tutorial tutorials routine routines jobs listserve mailinglist bulletin board bulletin boards programming snippet snippets CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Include file |
|
From: |
Steven |
|
Date: |
5/23/2000 12:48:49 AM |
|
IP: |
202.188.254.221 |
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Dim i = 1
Set objConn = Server.CreateObject("ADODB.Connection")
Sub fnSelectSQL(Records,statement)
Application.contents("I_VALUE") = i
Set objCmd = Server.CreateObject("ADODB.Command")
Application("EB_ConnectionString") = "Provider=MSDASQL.1;Connect Timeout=15;Extended Properties=""DRIVER=SQL Server;SERVER=456.456.456.456;UID=sa;WSID=aaaa;DATABASE=EB;Address=456.456.456.456,1433"";Locale Identifier=4455;User Id=abc;PASSWORD=456456;"
objConn.ConnectionString=Application("EB_ConnectionString")
objConn.CursorLocation=adUseClient
objConn.Open
objCmd.ActiveConnection=objConn
objCmd.CommandType=adCmdText
execute the SQL statement
objCmd.CommandText=statement
set Records = objCmd.Execute
End Sub
</SCRIPT> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
