<% if Request("mode") = "gbsign" then c1 = " " c2 = "" else c1 = "" c2 = " " end if Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) Path = Server.MapPath(Dir) %>

	<% Response.Write "" & c1 & "Sign Guestbook   " & c2 & "View Guestbook " Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DefaultDir=" & path & ";Driver={Microsoft Text Driver (*.txt; *.csv)};Extensions=txt,csv,tab,asc;" if Request("guest_name") <> "" then SQL = "SELECT * FROM db.csv order by fldDate" rs.Open SQL, Conn, 1, 3 rs.AddNew rs.Fields("fldName") = Request("guest_name") rs.Fields("fldEmail") = Request("guest_email") rs.Fields("fldURL") = Request("guest_URL") rs.Fields("fldFrom") = Request("guest_address") rs.Fields("fldCar") = Request("guest_car") rs.Fields("fldComments") = Request("guest_comments") session.lcid=2057 rs.Fields("fldDate") = FormatDateTime(Date(),2) rs.Update rs.Close end if sub gbView SQL = "SELECT * FROM db.csv order by fldDate" rs.Open SQL, Conn do until rs.eof Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ " Name: " & rs("fldName") & " Email: " & rs("fldEmail") & " HomePage: " & rs("fldURL") & " From: " & rs("fldFrom") & " Car: " & rs("fldCar") & " Comments: " & rs("fldComments") & " " & rs("fldDate") & " " & _ " " & _ " " & _ " " rs.MoveNext loop end Sub sub gbSign Response.Write " " & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ " Name: Email: HomePage: From: Car: Comments:   " end sub function count() Set fso = CreateObject("Scripting.FileSystemObject") Set fs1 = fso.OpenTextFile(Server.MapPath("count"), 1) count = fs1.ReadLine fs1.close Set fs2 = fso.OpenTextFile(Server.MapPath("count"), 2) fs2.WriteLine count + 1 fs2.close end function select case Request.QueryString("mode") case "gbsign" Call gbSign Case Else Call gbView End Select %>		If you sign to my guestbook, it's will be great and very pleasure for me! Tell me, that you think about this site and my car! Since 21 September 2002 this guestbook has been accessed <%=count%> times.