|
|
|
|
|
| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program 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> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
