<%@ Language=VBScript %>
<%
if Session("HTTPRequest")="" then
' Response.Redirect("../index.htm")
end if
%>
Galerie
<%
'Öffnen der ODBC-Quelle
lid=Request("ID")
set m_rsH2 = server.CreateObject("ADODB.Recordset")
'm_strSQL = "Select * from ProdKat"
'm_rsNS2.Open m_strSQL,oConn,2,3
m_strSQL = "Select * from GalerieKat order by Bezeichnung"
m_rsH2.Open m_strSQL,oConn,2,3
%>
Please you select one of the listed galleries: :
<%
m_tempcolor = 0
Do while not m_rsH2.eof
m_tempcolor = m_tempcolor + 1
m_tempcolorhalf = m_tempcolor mod 2
%>
