Gstanzln.com auf Volkstanz.at

<% 'Set or get Cookie Dim strGstanzln, strGUID, MyGuid, strDomain strDomain = "http://www.gstanzln.com/" strGstanzln = Request.Cookies("Visits") If strGstanzln > "0" Then strGstanzln = CInt(strGstanzln) + 1 Response.Cookies("Visits") = strGstanzln Else strGstanzln = "1" Response.Cookies("Visits") = strGstanzln End if strGUID = Request.Cookies("GUID") If Len(strGUID) = 0 Then Set MyGuid = CreateObject("scriptlet.typelib") strGUID = MyGuid.guid Set MyGuid = nothing Response.Cookies("GUID") = strGUID End if Response.Cookies("GUID").Expires = Date + 120 Response.Cookies("Visits").Expires = Date + 120 strGstanzln=Request.Cookies("Visits") strSQLSave = "INSERT INTO tbl_Cookies (Domain, IPAddress, NumberOfVisits, VisitorGUID)" strSQLSave = strSQLSave & " VALUES ('" & strDomain & "', '" & Request.ServerVariables("REMOTE_ADDR") & "', " & CInt(strGstanzln) & ", '" strSQLSave = strSQLSave & LEFT(strGUID, 38) & "');" 'Response.Write Len(strGUID) & ":
" 'Response.Write Left(strGUID, 38) 'Response.write "
" 'Response.Write strSQLSave 'Response.Write "Besuche insgesamt: " & strGstanzln dim conn, rs set conn=server.createobject("adodb.connection") conn.open "Transaktionen" set rs=conn.execute(strSQLSave) 'rs.close set rs=nothing conn.close set conn=nothing %> Gstanzln.com auf Volkstanz.at


Suchen Home Mario Herger Darüber lacht Wien Mehr.. Gstanzln Einleitung 12 Gebote Melodien Literatur Einsenden Postkarte Themen Gaßlbrauch Gaßlgehen Gaßlsprüch Bräuche Sonstiges Chat Volkstanz.at	Beim Tanz und in geselliger Runde finden sie immer Anklang: Gstanzln, die Vierzeiler, manchmal auch Mehrzeiler, die oft lustig, manchmal aber auch nachdenklich und kritisch von Sehnsüchten und Wünschen zeugen. Thema: Steirische Ziehharmonika & argentinisches Bandoneon - Steirer & Tango, Schottischer & Milonga	<% call GetPicture() %>
	Suchen nach Titel <% call FillComboBox("SELECT ID_Title, Title FROM tbl_GstanzlTitle WHERE ID_Type = 1 ORDER BY Title", "ID_Title") response.write " " %>	Gstanzl des Tages <% call GetGstanzln() %>
	Buch des Tages <% Call GetAmazonObject("Books", "Gstanzln") %>
	CD des Tages <% Call GetAmazonObject("Records", "Gstanzln") %>
	WAP-Gstanzln: http://www.gstanzln.com/WAP/Gstanzln.wml

25. September 2006

_Gstanzln.com
_{mherger@mherger.com/sub>}

<% Function GetPicture() ' get random picture of the day 'intPicturesTotal = 28 'lngDate = Date 'myCriteria = CInt(intPicturesTotal * Rnd(-lngDate)) 'If myCriteria = 0 then myCriteria = 1 'If myCriteria > intPicturesTotal then myCriteria = intPicturesTotal strSQL="SELECT * FROM tbl_GstanzlTitle WHERE ID_Title = " & CDbl(RndValue(28, "D")) & ";" 'dim conn, rs set conn=server.createobject("adodb.connection") conn.open "Volkstanz" set rs=conn.execute(strSQL) rs.MoveFirst Response.write " " & rs("Title") & "

" rs.close set rs=nothing conn.close set conn=nothing End Function Function GetGstanzln ' get random Gstanzl of the day intGstanzlTotal = 734 lngDate = Date myCriteria = CInt(intGstanzlTotal * Rnd(-lngDate)) If myCriteria = 0 then myCriteria = 1 If myCriteria > intGstanzlTotal then myCriteria = intGstanzlTotal strSQL="SELECT * FROM tbl_GstanzlTextsNew" strSQL=strSQL & " WHERE ID_Gstanzl = " strSQL=strSQL & myCriteria & " ORDER BY [ID_Title], [SortOrder_Total], [SortOrder_Verses];" 'dim conn, rs set conn=server.createobject("adodb.connection") conn.open "Volkstanz" set rs=conn.execute(strSQL) rs.MoveFirst Response.write "