from: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6518
Connect/Read Remote SQL server Using PWS in win 98
;;;;;I had to test Microsoft's Personal Webserver (PWS) in win 98 to access Remote SQL server 7.0
installed in a NT server. The clients to win 98 had LAN connections. Easy one , don't vote, have fun with
PWS. In fact I tested my connection with this script, before I created an out of process server demo with
VB.
;;
;;
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:;;;
By using this code, you agree to the following terms...;;;
1) You may use this code in your own programs (and may compile it into a program and distribute it in
compiled format for langauges that allow it) freely and with no charge.;;;
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the
original author. Failure to do so is a violation of copyright laws.;;;
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or
code's description.;;
;;;;'**************************************
;;;;' Name: Connect/Read Remote SQL server U
;;;;';;;;;sing PWS in win 98
;;;;' Description:I had to test Microsoft's
;;;;';;;;;Personal Webserver (PWS) in win 98 to ac
;;;;';;;;;cess Remote SQL server 7.0 installed in
;;;;';;;;;a NT server. The clients to win 98 had L
;;;;';;;;;AN connections. Easy one , don't vote, h
;;;;';;;;;ave fun with PWS. In fact I tested my co
;;;;';;;;;nnection with this script, before I crea
;;;;';;;;;ted an out of process server demo with V
;;;;';;;;;B.
;;;;' By: Manas Mukherjee
;;;;'
;;;;' Assumes:Knowing Little bit of LAN woul
;;;;';;;;;d help , VPN, HTML, Creating Virtual dir
;;;;';;;;;ectory with PWS
;;;;'
;;;;'This code is copyrighted and has;;;;' limited warranties.Please see http://w
;;;;';;;;;ww.Planet-Source-Code.com/xq/ASP/txtCode
;;;;';;;;;Id.6518/lngWId.4/qx/vb/scripts/ShowCode.
;;;;';;;;;htm;;;;'for details.;;;;'**************************************
;;;;
;;;;<HTML><HEAD>
;;;;<TITLE> ASP_PUBS/SQL Server In NT server</TITLE>
;;;;</HEAD>
;;;;<BODY><CENTER>
;;;;<%
;;;;Dim objConn, objRS, strQ, strOut, I
;;;;Set objConn = Server.CreateObject("ADODB.Connection")
;;;;objConn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial
Catalog=pubs;Data Source=URServerName"
;;;;Set objRS = Server.CreateObject("ADODB.Recordset")
;;;;strQ = "SELECT emp_id, fname, lname,job_id "
;;;;strQ = strQ & "FROM Employee "
;;;;objRS.Open strQ, objConn, , , adCmdText
;;;;%>
;;;;<TABLE BORDER=1 CELLPADDING=4>
;;;;Connected To the Database Pubs
;;;;using connect String "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial
Catalog=pubs;Data Source=URServername"
;;;;<TH> "EmployeeID" </TH>
;;;;<TH> "FirstName" </TH>
;;;;<TH> "LastName" </TH>
;;;;<TH> "job_id" </TH>
;;;;<% Do While Not objRS.EOF %> <TR>
;;;;<TD> <% = objRS("emp_id") %>
;;;;<TD> <% = objRS("fname") %>
;;;;<TD> <% = objRS("lname") %></TR>
;;;;<TD> <% = objRS("job_id") %></TR>
;;;;<% objRS.MoveNext %>
;;;;<% Loop %>
;;;;<% objRS.Close %>
;;;;<% Set objRS = Nothing %>
;;;;<% Set objConn = Nothing %>
;;;;</TABLE>
;;;;</CENTER>
;;;;</BODY>
;;;;</HTML>
