<%@LANGUAGE="VBSCRIPT"%> <% Dim rsContactInfo Dim rsContactInfo_numRows Set rsContactInfo = Server.CreateObject("ADODB.Recordset") rsContactInfo.ActiveConnection = MM_sitedata_STRING rsContactInfo.Source = "SELECT * FROM tblCompanyInfo" rsContactInfo.CursorType = 0 rsContactInfo.CursorLocation = 2 rsContactInfo.LockType = 1 rsContactInfo.Open() rsContactInfo_numRows = 0 %> Photographic Production Services - About Us
PPS Home Page Services About PPS Contact Us Links
About Us Main Page General Information PPS Staff Current E-News News Archive Featured Photographer Contests

3rd Place.jpg
Heart Of The Day Lilly
© Bruce K. Haley Jr.

3rd Place
Previous Home Next

1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10

<%=(rsContactInfo.Fields.Item("txtCompanyName").Value)%> | <%=(rsContactInfo.Fields.Item("txtAddress").Value)%> | <%=(rsContactInfo.Fields.Item("txtCity").Value)%>, <%=(rsContactInfo.Fields.Item("txtSate").Value)%> <%=(rsContactInfo.Fields.Item("txtZipCode").Value)%>
Phone: <%=(rsContactInfo.Fields.Item("txtPhone").Value)%> | Fax: <%=(rsContactInfo.Fields.Item("txtFax").Value)%> | Toll-Free: <%=(rsContactInfo.Fields.Item("txtTollFree").Value)%> | E-Mail: "><%=(rsContactInfo.Fields.Item("txtEmail1").Value)%>
<% rsContactInfo.Close() Set rsContactInfo = Nothing %>