<% '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() %>

Bücher Buch des Tages <% Call GetAmazonObject("Books", "Gstanzln") %>

CDsCD 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 "
" & vbCrLf Response.write "" & vbCrLf Response.Write "

" & vbCrLf Do while not rs.eof Response.Write rs("Text") & vbCrLf Response.Write "
" & vbCrLf rs.MoveNext Loop Response.Write "

" & vbCrLf Response.write "

" & vbCrLf Response.write "" & vbCrLf rs.close set rs=nothing conn.close set conn=nothing End Function %>