Gästboken
<% Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/guests.mdb") strSQL =" SELECT * FROM guestbook 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("Datum")) vdag = DateAdd("h",0,indag) dat = FirstVersal(WeekDayName(WeekDay(vdag)))&"en "& " den " & fix(DatePart("d", vdag)) & " " & MonthName(Month(vdag)) &" kl " & FormatDateTime(vdag,4) Response.Write "
" & dat & " skrevs följande:
" //' i VBScript kan man inte använda sig utav radbrytningar därför behövs följande: Replace(rsGbok("Message"), vbCrLf, "" & vbCrLf) Response.Write "
" & Replace(Smilies(rsGbok("Message")), vbCrLf, "
" & vbCrLf) & "
" Response.Write " av:" Response.Write " " & rsGbok("Namn") Response.Write "
Skicka insändaren E-post: " Response.Write "
" rsGbok.MoveNext Loop rsGbok.Close Set rsGbok = Nothing minCon.Close Set minCon = Nothing %>
