<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 65001 " %>
<%
Schwache rscategories
Schwaches rscategories_cmd
Schwache rscategories_numRows
Rscategories_cmd = Server.CreateObject („ADODB.Command“) einstellen
rscategories_cmd.ActiveConnection = MM_OnDemand_STRING
rscategories_cmd.CommandText = „WÄHLEN * von den Kategorien“ vor
rscategories_cmd. Vorbereitet = ausrichten
Rscategories = rscategories_cmd einstellen. Durchführen
rscategories_numRows = 0
%>
<%
Schwaches Repeat1__numRows
Schwaches Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rscategories_numRows = rscategories_numRows + Repeat1__numRows
%>
<%
Schwaches rsvideo
Schwaches rsvideo_cmd
Schwache rsvideo_numRows
Schwaches catvar
%>
<%
Vorvarnode ()
catvar = (rscategories. Fields.Item („catID“). Wert)
Rsvideo_cmd = Server.CreateObject („ADODB.Command“) einstellen
rsvideo_cmd.ActiveConnection = MM_OnDemand_STRING
rsvideo_cmd.CommandText = „* von den Videos IN DENEN videocategory=“ u. catvar VORWÄHLEN
rsvideo_cmd. Vorbereitet = ausrichten
Rsvideo = rsvideo_cmd einstellen. Durchführen
Extvar verdunkeln
Tun während nicht rsvideo. EOF
extvar = rsvideo. Fields.Item („videoextension“). Wert
response.write („ ")
response.write („")
response.write („ ")
response.write (rsvideo. Fields.Item („vidoename“). Wert)
response.write („")
Wenn (extvar = „SWF“) dann
response.write („ ")
ElseIf (extvar = „pdf“) dann
response.write („ ")
ElseIf (extvar = „FLV“) dann
response.write („ ")
ElseIf (extvar = „JPG“) dann
response.write („ ")
ElseIf (extvar = „STÖPSEL“) dann
response.write („ ")
ElseIf (extvar = „MP3“) dann
response.write („ ")
Beenden wenn
response.write („ ")
response.write („")
response.write (rsvideo. Fields.Item („videodescription“). Wert)
response.write („ ")
response.write („")
rsvideo.MoveNext ()
Schleife
Enden-Unterseeboot
rsvideo_numRows = 0
%>
Project Netz-Hilfe u. FAQ – McGraw-Hügel Construction
|