<% ' -------------------------------------------------------------------------------- ' Dette eksempel er skrevet af Dennis Knappe ( info@activeserverpages.dk ) ' Eksemplet kan downloades fra http://www.activeserverpages.dk ' Scriptet kan frit anvendes til ikke kommercial brug, ønsker du at bruge scriptet ' i et kommercial sammenhæng kontakt da venligst Dennis Knappe ' -------------------------------------------------------------------------------- Const adOpenKeyset = 1 Const adLockOptimistic = 3 strMode = Request.QueryString("mode") tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("guestbk.mdb") & ";UID=admin;PWD=;" If Request.Form("Gem") <> "" Then strError = "" strNavn = Trim(Request.Form("Navn")) strEmail = Trim(Request.Form("Email")) strUrl = Trim(Request.Form("Url")) strCitycountry = Trim(Request.Form("Citycountry")) strKommentar = Trim(Request.Form("Kommentar")) If Len(strNavn) = 0 Then strError = "
  • Please enter your name.
    • " ElseIf validateEmail(strEmail) = False Then strError = "
  • Please enter a valid e-mail adress.
    • " ElseIf Len(strCitycountry) = 0 Then strError = "
  • Please enter your city and country.
    • " ElseIf Len(strKommentar) = 0 Then strError = "
  • Please enter a message.
    • " End If If Len(strError) = 0 Then Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)" rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic If (rs.BOF Or rs.EOF) Then rs.AddNew rs("Navn") = Server.HTMLEncode(strNavn) rs("Email") = Server.HTMLEncode(strEmail) rs("Url") = Server.HTMLEncode(strUrl) rs("Citycountry") = Server.HTMLEncode(strCitycountry) rs("Kommentar") = Server.HTMLEncode(strKommentar) rs("Dato") = Now() rs.Update End If rs.Close Set rs = Nothing Else strError = "

    " strMode = "add" End If End If %> Cookies: Giv os kritik

    Guestbook

    <%=strError%>
      Sign Guestbook
    Navn:
    E-mail:
    URL:
    By:
    <% strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;" Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open tempConn Set rs = myConn.Execute(strSQL) gbdivider = "

    ---

    " If Not (rs.BOF Or rs.EOF) Then Response.Write "" Do While Not rs.EOF Response.Write gbdivider dtmDato = rs("Dato") dtmDato = FormatDateTime(dtmDato,vbLongDate) Response.Write dtmDato & "
    " Response.Write "" & rs("Kommentar") & "
    " If Len(rs("Email")) > 0 Then Response.Write "" & rs("Navn") & "" Else Response.Write rs("Navn") End If If Len(rs("Url")) > 0 Then Response.Write ", <" & rs("Url") & ">" End If Response.Write "
    " & rs("Citycountry") rs.MoveNext Loop Else Response.Write gbdivider & "

    Der er endnu ingen, der har skrevet i vores nye gæstebog." End If myConn.Close Set myConn = Nothing %>

    ---

    Se vores gamle gæstebog »

    « Forrige side