<%
' ------------------------------------------------------------------------------------
' Hér byrjar gestabókin
' ------------------------------------------------------------------------------------
If not Request.Form("loginname") = "" Then
If ( Request.Form("loginname") = "rambo" ) And ( Request.Form("password") = "yasko" ) Then
Dim MyCookie = New HttpCookie("gestbookadmin", "true")
Response.Cookies.Add(MyCookie)
End If
End If
Dim bAdmin = false
If not Request.Cookies("gestbookadmin") Is Nothing Then _
bAdmin = ( String.Compare(Request.Cookies("gestbookadmin").Value,"true") = 0 )
%>
<%
If Request.Form("FromName") = "" Then
%>
<%If not bAdmin Then%>
<%Else%>
Þú ert admin
<%End If%>
<%
Else
%>
Takk fyrir að skrifa í gestabókina :)
<%
End If
Dim objSQLConn As OleDbConnection
objSQLConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./db/db.mdb"))
objSQLConn.Open()
If not Request.Querystring("dodelete") = "" Then
Dim objInsert As New OleDbCommand("DELETE FROM Gestabok WHERE ID = " & Request.Querystring("dodelete"), objSQLConn)
objInsert.ExecuteNonQuery()
End If
If not Request.Form("FromName") = "" Then
Dim RemoteHost As String = Request.ServerVariables("REMOTE_HOST")
Dim dWhen As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
Dim objInsert As New OleDbCommand("INSERT INTO Gestabok([When],FromName,Message,IP) VALUES('" & DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss") & "','" & Request.Form("FromName") & "','" & Request.Form("Message") & "','" & RemoteHost & "')", objSQLConn)
objInsert.ExecuteNonQuery()
End If
Dim objCmd As OleDbCommand
Dim objDr As OleDbDataReader
Dim odAdapt = New OleDbDataAdapter("select * from Gestabok Order by [When] Desc", objSQLConn)
Dim DS = New DataSet
odAdapt.Fill(DS)
Dim DT = DS.Tables(0)
Dim nRecCount = DT.Rows.Count
Dim RECORDS_PER_PAGE = 5
Dim nPageCount = nRecCount \ RECORDS_PER_PAGE
If nRecCount Mod RECORDS_PER_PAGE > 0 Then nPageCount += 1
Dim nPage = Convert.ToInt32(Request.QueryString("Page"))
If nPage < 1 Or nPage > nPageCount Then nPage = 1
Dim nStart = RECORDS_PER_PAGE * (nPage - 1)
Dim nEnd = nStart + RECORDS_PER_PAGE - 1
If nEnd > nRecCount - 1 Then
nEnd = nRecCount - 1
End If
Dim dateWhen As DateTime
Dim i
For i = nStart To nEnd
%>
<%Else%>
Þú ert admin
<%End If%>
Website: Lilja Baldursdóttir