Postkarte - Schritt 1 von 5

Gstanzl auswählen

Bua an Diandl Diandl an Bua
<% intGruppe=1 call LoadGstanzl(intGruppe) %>
<% intGruppe=2 call LoadGstanzl(intGruppe) %>
Bua an Bua Diandl an Diandl
<% intGruppe=3 call LoadGstanzl(intGruppe) %>
<% intGruppe=4 call LoadGstanzl(intGruppe) %>

17. February 2002

Gstanzln.com
admin@gstanzln.com

<% 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 %>