<%@ Language=VBScript%> <% Option Explicit Dim strPageUpdDate strPageUpdDate = "2002-09-10" %> <% Dim rs, strNames, sDay, sMonth, names,i, sDesc Set rs = CreateObject("ADODB.Recordset") sMonth = Month(Date) If Len(sMonth) = 1 Then sMonth = "0" + CStr(sMonth) sDay = Day(Date) If Len(sDay) = 1 Then sDay = "0" + CStr(sDay) strSQL = "SELECT Names FROM Nameday WHERE NameDate = '2002-" & sMonth & "-" & sDay & "'" rs.Open strSQL, conn strNames = "" If Not rs Is Nothing Then If rs.EOF = False Then strNames = rs(0) End If rs.Close End If names = Split(strNames,",") strSQL = "SELECT Name, Description FROM NameDescription WHERE Name IN (" For i=0 to UBound(names) strSQL = strSQL & "'" & Trim(names(i)) & "'," Next strSQL = Left(strSQL,Len(strSQL)-1) strSQL = strSQL & ")" 'Response.Write strSQL rs.Open strSQL, conn If Not rs Is Nothing Then sDesc = "" Do While rs.EOF = False sDesc = sDesc & "" & rs(0) & " är ett " & rs(1) & "
" rs.MoveNext Loop rs.Close End If %> Stefan Näsmans HomePage
<% If strNames = "Johannes Döparens dag" Or strNames = "Marie Bebådelsedag" Or strNames = "Juldagen" Then%> Idag är det <%=strNames%>. <%Else%> Idag har <% strSQL = "" For i=0 to UBound(names) strSQL = strSQL & "" & Trim(names(i)) & ", " Next strSQL = Left(strSQL,Len(strSQL)-2) Response.Write strSQL%> namnsdag. Grattis!
<% If sDesc <> "" Then Response.Write "
" & sDesc End If End If%>
Börja din resa!

viagra köpa
The market of Jewelry is humongous. Various brands and designers have invested in this business but replica watches sale only few were able to shine brilliantly and stand out from the rest and this is largely because when it replica watches sale comes to jewelry, design and quality become the most significant parameters. It is a verity that jewelry is an rolex replica sale investment in itself and hence, when an individual wishes to buy any kind of jewelry piece, he wants to be completely sure of its swiss replica watches design and quality. Cartier is a brand that is highly trusted and recognized for its unique designs and high quality. The company has so much replica watches sale to offer in the jewelry line. Extensive ranges of sparkling bracelets, dazzling neckpieces, beautiful rings and etc are outstanding.