<% dim dsn dim objConn dsn="DBQ=" & Server.Mappath("../../access_db/Schedule.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn %> <% Response.Buffer = True %> K2 Enterprises | Seminar Sponsor | Continuing Professional Education for Accounting and Financial Professionals
Seminar Sponsor
<% Dim SQL, SP, Website SN = Request("SponsorName") SQL = "SELECT * FROM ""Web Sponsors"" WHERE SponsorName = '" & SN & "'" Set oRS = objConn.Execute(SQL) Website = oRS("Hyperlink") %>

Sponsor Name: 

<%Response.Write oRS("SponsorName")%> 

Address 1: 

<%Response.Write oRS("Address1")%> 

Address 2: 

<%Response.Write oRS("Address2")%> 

City, State, Zip: 

<%Response.Write oRS("CityStateZip")%> 

Phone Number: 

<%Response.Write oRS("PhoneNo")%> 

Fax Number: 

<%Response.Write oRS("FaxNo")%> 

Sponsor Website: 

Click here 

CONTINUING PROFESSIONAL EDUCATION FOR ACCOUNTING AND FINANCIAL PROFESSIONALS

K2 Enterprises | 1250 SW Railroad Avenue - Suite 240A | Hammond, LA 70403 | (985) 542-9390

© 2009 K2 Enterprises | Email Us| Site Map