Danskalendern gammaldans

Gammaldanssidans Danskalender

30 dansdagar framåt
Dansdagar 1 år framåt
Alla dagar
Hjälp med inloggn.
Info föreningarna

<%=mon%>

Till Gammaldanssidan.com Mobillänk: http://alldans.se/mob/?a=0 Inloggn.

= länk till hemsida/Facebook ikon

= Dagens dansprogram

= Dansvideo ikon

Dansbeskrivning

<% sOKdatum=Request.form("OKdatum") snDatum=Request.form("nDatum") sDatum = snDatum sPlats = "MX" sforening=Request.form("forening") sxforening=Request.form("xforening") If len(sxforening)>1 then sforening= sxforening end if sDans=Request.form("dans") sDans2=Request.form("dans2") sxdans=Request.form("xdans") If len(sxdans)>2 then sdans= sxdans end if sxDansorkester=Request.form("xdansorkester") sDansorkester=Request.form("dansorkester") If len(sxDansorkester)>1 then sDansorkester= sxDansorkester end if sEd =Request.QueryString("Ed") sNy =Request.QueryString("Ny") if sny=1 then sqdatum =Request.QueryString("datum") sqdag =Request.QueryString("Dag") end if tmp =Now() SxDatum = formatDateTime(tmp,vbshortdate) nudatum =Sxdatum Set conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/DRead/gammeldans.mdb")) Select case sTtyp case 2 sql = "SELECT * FROM kalender Order By Fnamn" case 3 sql = "SELECT * FROM kalender Order By Dnamn , Datum" case 4 sql = "SELECT * FROM kalender Order By Onamn, Datum, Fnamn" case 5 sql = "SELECT * FROM kalender Order By Datum, Fnamn" case 10 sql = "SELECT * FROM kalender Order By Datum, Fnamn" case 8 sql = "SELECT * FROM kalender where str(Vnr)='"&" " & sqVnr & "' Order By Datum, Fnamn" case 9 V1=Cint(sqVnr) V2=V1+1 Vx=Cstr(V2) sql = "SELECT * FROM kalender where str(Vnr)='"&" " & sqVnr & "' or str(Vnr)='"&" " & Vx & "' Order By Datum, Fnamn" case else sql = "SELECT * FROM kalender Order By Datum , Fnamn" z2=1 end select set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,conn %>

Datum

Dag

Förening

<%if sTtyp <> 5 then%>

Orkester

<%end if%>

Övrig info

<% sSida =Request.QueryString("Sida") sSida =trim(sSida) startdatum=rs("Datum") sqMon = Request.QueryString("Monad") Do until rs.eof aDatum = rs("Datum") ok=sTtyp if sTtyp = 12 then SxDatum =sqMon sx2datum= DateValue(cDate( sxDatum)+32) If CDate(Sx2Datum) < cDate(aDatum) then exit do end if if sTtyp=0 then sx2datum= DateValue(cDate( sxDatum)+32) If CDate(Sx2Datum) < cDate(aDatum) then exit do end if if sTtyp=10 then sx2datum= DateValue(cDate( sxDatum)+366) If CDate(Sx2Datum) < cDate(aDatum) then exit do end if TFnamn= rs("Fnamn") if len(TFnamn)< 2 or TFnamn="" then ok=234 if len(TFnamn)>0 then If CDate(SxDatum) < cDate(aDatum) or CDate(SxDatum) = cDate(aDatum) then ok=sTtyp 'sTtyp=112 ' ok =112 'response.write "M="&len(TFnamn)&"--
" else ok=234 end if end if if instr(TFnamn,"Ny artikel") >0 then ok =234 ' if sTtyp="2" then sTtyp=112 if sTtyp= 5 then ok=sTtyp 'if sTtyp="10" and len(TFnamn)>1 and CDate(SxDatum)> cDate(aDatum) then ok=sTtyp 'response.write "styp"&sTtyp&"qq " if ok=sTtyp and len(TFnamn)>2 then 'sTtyp=0%>

<% mon =rs("Datum") monnr=0 Omonth mon, monnr Kortdatum =Right(rs("Datum"),2)+" "+mon TFnamn= rs("Fnamn") TOnamn = rs("Onamn") TDnamn = rs("Dnamn") Tdatum= rs("datum") TVnr = rs("Vnr") Tdag = rs("dag") Tclock =rs("clock") TSe = rs("Se") TNr=rs("Nr") Tvideo = rs("video") Tbeskrivn = rs("beskrivn") TONr=rs("Osida") TFNr=rs("Fsida") Tx=rs("x") THsida =rs("Hsida") if rs("Datum")=daginnan then %>

<%else%>

<% = kortdatum %>

<% = Tdag%>

<%end if%>

<% = rs("clock")%>

<%if Tx =1 then %>

<% response.write rs("Fnamn")%>

<%else%>

<% response.write rs("Fnamn")%> <%if instr(Tbeskrivn,"
")> 0 then %>
<%end if%>

<%end if%>

<% 'TFnamn=rs("Fnamn") Set connF = Server.CreateObject("ADODB.Connection") ConnF.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/DRead/dansNy.mdb")) set rsF=Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM forening Order By forening" rsF.Open sql,connF %> <%Do until rsF.eof if rsF("forening") = TFnamn then if rsF.eof then rs.movenext 'sOvrigt=rsF("Ovrigt") sDlenk=rsF("Dlenk")%>

<%If len(sDlenk)>5 then%>

<%end if%>

<% If sOvrigt="1" or left(Tfnamn,4)="Kode" or Tfnamn="Anten" or instr(Tfnamn,"dsm") or instr(Tfnamn,"orkskr") > 0 then%>

<%end if%>

<%exit do else rsF.movenext end if loop rsF.close connF.close%> <%If instr(THsidaxx, "http://") then%>

<%end if %>

<% if sTtyp<>"5" then%>

<%= TOnamn%>

<%end if%>

<%if len(Tvideo)> 14 then %> <% = Tvideo%>

<%end if%> <%if len(Tbeskrivn)> 3 then %> <% =Tbeskrivn%>

<%end if%>

<%if instr(Tbeskrivn,"
")> 0 then %> <% = Tbeskrivn%> <% else%> <%if len(Tbeskrivn)> 3 then %> <% = Tbeskrivn%><% = TDnamn%> <% else%> <% = TDnamn%> <%end if%> <%end if%>

<% if instr(Tbeskrivn,"
")> 0 then%>

<% else%>

<%end if daginnan=rs("Datum")%>

<% end if rs.movenext loop slutdatum = daginnan rs.close conn.close 'raknare z,z2 %>