%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'database config Dim strservername, strdbname, strdbusername, strdbpassword, rs, strsql, db strservername = "mysql13.streamline.net" strdbname = "ukpsfcom1" strdbusername = "ukpsfcom1" strdbpassword = "s84495" 'database connection subroutine sub dbconnect(blnswitch) Select Case blnswitch Case 1 'mysql connection string strConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & strservername & ";UID=" & strdbusername & ";PWD=" & strdbpassword & ";DATABASE=" & strdbname set db = CreateObject("ADODB.Connection") db.Errors.Clear Err.Clear db.Open strConnString Case 0 db.close set db = nothing End Select end sub %>
|
<%= rs("sitename") %> ("><%= rs("sitelocation") %>)
<%
if rs("siteurl") <> "" Then
%>
" target="_blank">
<%
end if
%>
#top">Top
|
<%
if rs("accredited") = 1 Then
%>
![]() <% end if %> <% if rs("sitetext") <> "" then %> <%= rs("sitetext") %> <% end if %> |
| Contact: <%= rs("sitecontact") %> on <%=rs("sitephone") %> |
| Email: "><%= rs("siteemail") %> |
![]() Featured site: National Paintball Games - Sidcup |
![]() |