|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
HRESHKO CONSULTING GROUP INC
850 US HIGHWAY 1
NORTH BRUNSWICK, NJ 08902
Phone: 732-545-9000
Fax:732-545-0080
Email:
info@hcgusa.com |
|
|
|
|
|
|
Contact Form |
|
Contact Information |
|
|
|
<%
folder = session("folder")
Dim objConns
Set objConns = Server.CreateObject("ADODB.Connection")
objConns.open "driver={Microsoft Access Driver (*.mdb)};dbq=E:\web\websiteq\database\sales.mdb"
strSQLQuery = "SELECT companyname,companyaddress,companycity,companystate,companyzip,companyphone,companyfax,owneremail FROM Sites WHERE FolderName='"&folder&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, objConns, 3, 3
%>
HRESHKO CONSULTING GROUP INC
850 US Highway One
NORTH BRUNSWICK, NJ 08902
Phone: 732-545-9000
Fax: 732-545-0080 |
|
|
|
|
