% 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 © <%=year(now)%> WebTrailblazers LLC - Scottsdale, Arizona - 800-354-4104 Powered by: www.AllChiropractors.com and California Chiropractic Directory |