K-Elliott Guestbook

<% '### START include file settings ### '## START Database Connection ## Dim MyDBConString, MyConn IF((Session("login")="") or (Session("login")=null)) then Response.Redirect("AdminLogin.asp") END IF MyDBConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Backup on 4-7-07\vhosts\k-elliott.com\httpdocs\Data\GuestBook.mdb;Persist Security Info=False;" Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open MyDBConString ' ## END Database Connection ## Dim MM_appMMConnection_STRING MM_appMMConnection_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Backup on 4-7-07\vhosts\k-elliott.com\httpdocs\Data\GuestBook.mdb;Persist Security Info=False;" Function SQLStr(pvValue) Dim sTemp Select Case VarType(pvValue) Case 0, 1: SQLStr = "NULL" Case 2, 3, 4, 5, 6: sTemp = "" & pvValue sTemp = Replace(sTemp, "'", "''") SQLStr = "'" & sTemp & "'" Case 7: 'DateTime sTemp = FormatDateTime(pvValue) sTemp = Replace(sTemp, "'", "''") SQLStr = "#" & sTemp & "#" Case 8: 'String sTemp = pvValue sTemp = Replace(sTemp, "'", "''") If Len(Trim(sTemp)) > 0 Then SQLStr = "'" & sTemp & "'" Else SQLStr = "NULL" End If Case Else SQLStr = "NULL" End Select End Function Dim Name,Email,Comments,sSQLSave Name=Request.Form("visitor") Email=Request.Form("visitormail") Comments=Request.Form("notes") Dim rslist, rslist_numRows set rslist= Server.CreateObject("ADODB.Recordset") rslist.ActiveConnection = MyDBConString rslist.Source = "SELECT * FROM Guest ORDER BY ID ASC" rslist.CursorType = 0 rslist.CursorLocation = 2 rslist.LockType = 3 rslist.Open() rslist_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsResume_numRows = rsResume_numRows + Repeat1__numRows %> K-Elliott Guestbook

<%IF rslist.EOF then Response.write("Error") Else %> <% IF not rslist.EOF or rslist.BOF then %> <% While ((Repeat1__numRows <> 0) AND (NOT rslist.EOF)) %> <% 'Repeat1__index=Repeat1__index+1 'Repeat1__numRows=Repeat1__numRows-1 rslist.MoveNext() Wend %>

ID	Guest Name	Guest Email
<%=(rslist.Fields.Item("ID").Value)%>	<%=(rslist.Fields.Item("Guest_Name").Value)%>	"><%=(rslist.Fields.Item("Guest_Email").Value)%>

<% End If ' end Not rslist.EOF Or NOT rsResume.BOF %> <% END IF %>

<% rslist.Close() %>

Logout