<% dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL dim indag, dat Session.LCID = 1053 function fix(S) if S > 2 AND S <= 20 then fix = S & "e" Else if S > 23 AND S <= 30 then fix = S & "e" Else fix = S & "a" end if end if end function 'byta ut första bokstaven Function FirstVersal(txt) versal = UCase(Left(txt,1)) & LCase(Right(txt, Len(txt)-1)) FirstVersal = versal End Function %>


   Coachens sida                 Nytt från coachen

 

<%Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\spif93\db\guests.mdb") strSQL =" SELECT * FROM coach ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 Do While Not rsGbok.EOF //'eftersom sidan ligger på en amerikansk server så har vi 6 timmars tidsdifferens indag = Cdate(rsGbok("dag")) vdag = DateAdd("h",6,indag) dat = FirstVersal(WeekDayName(WeekDay(vdag)))&"en "& " den " & fix(DatePart("d", vdag)) & " " & MonthName(Month(vdag)) &" kl " & FormatDateTime(vdag,4) Response.Write "

" & dat & " skrev coachen:

" //' i VBScript kan man inte använda sig utav radbrytningar därför behövs följande: Replace(rsGbok("mess"), vbCrLf, "
" & vbCrLf) Response.Write "

" & Replace(rsGbok("mess"), vbCrLf, "
" & vbCrLf) & "


" Response.Write " av:" Response.Write " " & rsGbok("heter") Response.Write "

" rsGbok.MoveNext Loop rsGbok.Close Set rsGbok = Nothing minCon.Close Set minCon = Nothing %>



P93

Truppen

Träningstider

Matcher

Fotogalleri

Länkar

Gästboken