%@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.
|
|
|
<%
rsLogos.Close()
Set rsLogos = Nothing
%>
<%
rsHeader.Close()
Set rsHeader = Nothing
%>