<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsHeader Dim rsHeader_numRows Set rsHeader = Server.CreateObject("ADODB.Recordset") rsHeader.ActiveConnection = MM_dbpda_STRING rsHeader.Source = "SELECT * FROM tblheader" rsHeader.CursorType = 0 rsHeader.CursorLocation = 2 rsHeader.LockType = 1 rsHeader.Open() rsHeader_numRows = 0 %> <% Dim rsLogos Dim rsLogos_numRows Set rsLogos = Server.CreateObject("ADODB.Recordset") rsLogos.ActiveConnection = MM_dbpda_STRING rsLogos.Source = "SELECT * FROM tblLogos ORDER BY position ASC" rsLogos.CursorType = 0 rsLogos.CursorLocation = 2 rsLogos.LockType = 1 rsLogos.Open() rsLogos_numRows = 0 %> Porsche 924 Championship. Home of the PDA
" alt="<%=(rsHeader.Fields.Item("alt").Value)%>">

We are in the process of moving Hosting Companies please bare with us whilst this change takes palce today.

We are sorry for any inconvenience this may cause.

 

 

 

 

 

 

<% do while not rsLogos.eof %>

" target="new">" border="0">

<% rsLogos.movenext loop %>

<% rsLogos.Close() Set rsLogos = Nothing %> <% rsHeader.Close() Set rsHeader = Nothing %>