<% ConStr = "DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;DBQ=" & server.MapPath("../") & "\db\SiteCreator.mdb" pageName = "Guestbook.asp" session("DisplayLine")=10 Set db = Server.CreateObject("ADODB.Connection") Set ors = Server.CreateObject("ADODB.Recordset") Set rsPages = Server.CreateObject("ADODB.Recordset") db.Open ConStr If request("adminlogout") Then session("guestAdmin")=False Session.Abandon End if If Request.form("GuestBook")<>"" Then Name=Request("Name") Company=Request("Company") WebSite=Request("WebSite") Email=Request("email") Comments=Request("Comments") sql="select top 1 * from GuestBook" ors.Open sql, db ,1,3 ors.AddNew ors("WebSite")=WebSite ors("Name")=Name ors("Email")=Email ors("Company")=Company ors("Comments")= replace(Comments,chr(13),"
") ors.Update ors.close End if If Request("delete") Then If session("guestAdmin") Then sql="Select top 1 * from guestbook where id=" & request("id") & ";" ors.Open sql, db ,1,3 If NOT ors.EOF Then ors.Delete End If ors.close End if End if If Request("login")<>"" Then sql="Select top 1 * from config where email='" & request("email") & "';" ors.Open sql, db ,1,3 If NOT ors.EOF Then If ors("password")=request("password") Then session("guestAdmin")=True Else message="Invalid Login." End If Else message="Invalid Login." End if ors.close End if If request("sendmailnow") Then sql="Select top 1 * from GuestBook where id=" & request("id") ors.Open sql, db ,1,3 If not ors.EOF Then email=ors("email") sendmail email,request("subject"),request("body"),request("email") Else Response.Write "User not found" End if ors.Close End if Function GetMenu(MenuHV) set rsMenu = Server.CreateObject("ADODB.Recordset") sql="Select * from Pages order by pageorder asc;" rsMenu.Open sql, db ,1,3 do while not rsMenu.eof MenuName=rsMenu("FileName") MenuDes=rsMenu("Title") MenuList=MenuList & " " & "" & MenuDes & "" If MenuHV="horizontal" then MenuList=MenuList & " | " Elseif MenuHV="vertical" then MenuList=MenuList & "
" End if rsMenu.movenext Loop GetMenu=MenuList rsMenu.Close Set rsMenu =Nothing End function Function ShowAdminloginForm(message) %>
<%=message%>
Email

Password

<% End function Function ShowMailForm() %>

Send Email.

Email: 
Subject:


<% End Function Function SendMail(toEmail, subject, body, fromEmail) Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update Set iMsg.Configuration = iConf iMsg.To = toEmail iMsg.From = fromEmail iMsg.Subject = subject iMsg.TextBody = body iMsg.Send End Function Function GuestShow() 'Set oRs = Server.CreateObject("ADODB.Recordset") 'Set db = Server.CreateObject("ADODB.connection") ' db.Open ConStr mySQL = "Select * from Guestbook order by id desc;" If request("find")<>"" then mySQL = "Select * from Guestbook where name Like '%" & request("find") & "%' " oRs.Open mySQL , db, 1,2 If ors.eof Then%>
No guest found.
<%Else oRs.PageSize = session("DisplayLine") rscount = oRs.RecordCount intPageCount = oRs.PageCount If Request("page")="" then iPage = 1 ors.AbsolutePage = 1 Else iPage = int(Request("page")) ors.AbsolutePage = iPage End if %>
<%=GetMenu("horizontal")%>
<% bc="#C0C0C0" For intRecord = 1 To oRs.PageSize If oRs.EOF Then Exit For If bc="#FFFFFF" Then bc="#C0C0C0" Elseif bc="#C0C0C0" Then bc="#FFFFFF" End if %> <% oRs.movenext Next %>
Guest List Total:<%=rscount%>, Page <%=iPage%> of <%=intPageCount%>
Guest Name: <%if session("guestadmin") Then%> [ADMIN LOGOUT] <%Else%> [ADMIN] <%End If%> [SIGN]
Name: <%=oRs("Name")%>
">Send Email  <%If Session("guestadmin") Then%> ">Delete <%End if%> 		Website: <%=oRs("WebSite")%>
Address & Contact: <%=ors("Company")%>
<%=oRs("Comments")%>
<% End if ors.close db.close Set db = nothing Set oRs = Nothing %>
<%If ipage > 1 then%>
">
<%End if%> 		<%if ipage < intPageCount then%>
">
<%End if%>

Sign Guest Book
Name
Web Site
Address & Contact
Email
Comments

<% End function %> Guest book.

<% If request("sendmail") Then ShowMailForm() Elseif request("adminlogin") Then ShowAdminLoginForm("") Elseif message<>"" Then ShowAdminLoginForm(message) Else GuestShow() End if %>