% Dim cn Dim rs Dim strSQL Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.ConnectionTimeout = 25 cn.Open dbDSN strSQL = "SELECT A.BusinessName, S.*, E.* From tblAccount A INNER JOIN tblStoreFront S ON A.ID=S.MainID INNER JOIN tblEmployees E ON A.ID=E.MainID Where S.MainStore='1' and A.ID='" & UserID & "' and E.Main='1'" Set oRS = cn.Execute(strSQL) rs.Open strSQL,cn,3,3 %>
|
![]() |
![]() |
||||||||||||
|
||||||||||||||
|
||||||||||||||
Copyright © 2005
WebTRAILBLAZERS - Scottsdale, AZ - 800-354-4104
|
||||||||||||||