%@LANGUAGE="VBSCRIPT"%>
<%siteLabel="Southern Ocean Divers Club"%>
<%
'Database connection
Dim myDSN, conn, SQL, itemID, rsSODSdiarydates
myDSN = MM_stock_STRING
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open myDSN
Dim area
area = "SODSdiarydates"
ID=1
'get the HTML for dislay
SQL="SELECT sHTML from " & area & " where ID=" & ID
'response.write(SQL & "
")
set rsSODSdiarydates = conn.execute(SQL)
sHTML = rsSODSdiarydates("sHTML")
%>
![]() |
![]() |
![]() |
||||||||||||||||
|
|
|||||||||||||||||