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

	<%=sHTML%>