<% 'GuestBook Script 'All Rigths Reserved To ModerNet Kft. 'Author: Zsolt Bányai 'Budapest 2000 Database = "d:\web\databases\guestbook.mdb" PageSize = 5 'Number of Pages - az egyszerre megjelenő bejegyzések száma GuestBook = 1 'ID of Book - a vendégkönyv azonosítója BookFile = "vendegkonyv_e.asp" If Request.Form("mode") = "1" Then Session("Name") = Request.Form("name") Session("Email") = Request.Form("email") Session("Message") = Request.Form("message") Name = Replace(Request.Form("Name"),"<","<") Name = Replace(Name,">",">") Name = Replace(Name,"'","''") Email = Replace(Request.Form("Email"),"<","<") Email = Replace(Email,">",">") Email = Replace(Email,"'","''") Message = Replace(Request.Form("Message"),"<","<") Message = Replace(Message,">",">") Message = Replace(Message,"'","''") If (Name = "") Or (Message = "") Then Session("Name") = Name Session("Email") = Email Session("Message") = Message Response.Redirect "#formlink" Else Session.Abandon Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0;" Conn.Properties("data source")= Database Conn.open 'Open Database Set Messages = Server.CreateObject("ADODB.RecordSet") Set Messages.ActiveConnection = Conn Messages.LockType = 3 Messages.CursorType = 1 Messages.Source = "Messages" Messages.Open Messages.AddNew Messages("BooK") = GuestBook Messages("MessageWriter") = Name Messages("WriterEmail") = Email Messages("Message") = Message Messages("MessageDate") = Year(Now) & "." & Month(Now) & "." & Day(Now) Messages("MessageTime") = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) Messages("WriterIP1") = request.servervariables("REMOTE_HOST") Messages.Update Messages.Close Conn.Close Set Messages=Nothing Set Conn = Nothing Response.Redirect "vendegkonyv_e.asp" End If End If %> Visitor's Book - BéNI Glass Studio
Vissza a nyitólapra

Vissza a nyitólapra

Vissza a nyitólapra


A few words about the artist...
A selection of earlier works of mine
My past and future exhibitions. Some entries from visitors' books...
This is a somewhat different way to see these objects.
You may find this page useful if you are interested in glass art.
Let me give you some gift ideas. Here you can make a selection by category.
We summarise here all that BéNI Glass Studio offers
Do visit this page frequently! There is a chance that you will find here the very object that you have wanted for a long time.
It is worth visiting these websites.

Click on this if you like a work of mine or if this site has triggered your imagination.

Visitors' book

<% If Request.QueryString("page") = "" Then CurrPage = 1 Else CurrPage = Request.QueryString("page") End If Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0;" Conn.Properties("data source")= Database Conn.open 'Open Database Set Messages = Server.CreateObject("ADODB.RecordSet") Messages.CursorLocation = 3 Messages.CursorType = 3 Messages.Open "SELECT * FROM Messages Where Book=" & GuestBook & " ORDER BY MessageDate DESC, MessageTime DESC", Conn If Messages.EOF Then %>

The Guestbook is empty

<% Else Messages.PageSize = PageSize PageNum = Messages.PageCount Messages.AbsolutePage = CurrPage CurrRec = 0 Do Until Messages.EOF Or CurrRec>=PageSize %>

Name: <%=Messages("MessageWriter")%>
<%=Messages("MessageDate")%> <%=Messages("MessageTime")%>
Comment:
<%=Messages("Message")%>

<% Messages.MoveNext CurrRec = CurrRec + 1 Loop %> Pages: <% For I=1 To PageNum If Trim(cStr(I)) = Trim(cStr(CurrPage)) Then Response.Write "[" & I & "]" Else Response.Write " " & I & "" End If Next %> <% End If Messages.Close Set Messages = Nothing Conn.Close Set Conn = Nothing %>

If you have a mind to putting down your comments, feel free to do so here:

Please, fill in the Name and Comment fields!

Name:
">
Email:
 ">
Note:

 

 
email
Phone: +36 20 333 5121

Copyright