<%
Sub LoadGstanzl(intGruppe)
strSQLGstanzln = "SELECT tbl_Gstanzln_Karten.Gruppe, tbl_Gstanzln_Karten.ID_Gstanzl, tbl_GstanzlTextsNew.SortOrder_Verses, tbl_GstanzlTextsNew.Text"
strSQLGstanzln = strSQLGstanzln & " FROM tbl_Gstanzln_Karten LEFT JOIN tbl_GstanzlTextsNew ON tbl_Gstanzln_Karten.ID_Gstanzl = tbl_GstanzlTextsNew.ID_Gstanzl"
strSQLGstanzln = strSQLGstanzln & " WHERE Gruppe = " & intGruppe
strSQLGstanzln = strSQLGstanzln & " ORDER BY tbl_Gstanzln_Karten.Gruppe, tbl_Gstanzln_Karten.ID_Gstanzl, tbl_GstanzlTextsNew.SortOrder_Verses;"
dim conn, rs
set conn=server.createobject("adodb.connection")
conn.open "Volkstanz"
set rs=conn.execute(strSQLGstanzln)
x=1
rs.MoveFirst
Do while not rs.eof
If x=1 then
strChecked = "CHECKED"
else
strChecked = ""
End if
intGstanzlID = rs("ID_Gstanzl")
strRadio = CHR(34) & "Radio" & CHR(34)
Response.write "
" & vbCrLf
Response.write "
" & vbCrLf
For i = 1 to 4
Response.write rs("Text") & " " & vbCrLf
rs.MoveNext
Next
Response.write "
" & vbCrLf
'rs.MoveNext
x=x+1
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
End Sub
%>
