Livre d'or Waregem Ballonhappening
Bienvenue sur le livre d'or du meeting de montgolfières à Waregem, en Belgique. |
---|
<% if recordcount > 0 then %>
% option explicit %> <% LoggedIn = Session("loginID") ID = Trim(Request.queryString("ID")) '============Empty Deleted Items from the database============ If LoggedIn <> "" Then if request.querystring("del") = 1 then Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path mySQL = "DELETE FROM tblpost where active = 2;" dConn.execute(mySQL) dconn.close set dconn = nothing response.redirect("gastenboek.asp") end if end if '============set based on delete or undelete============ If LoggedIn <> "" Then showdeleted = request.querystring("showdeleted") if showdeleted = 1 then active = 2 removetype = 1 delete_text = undelete_text delimage = "undelete.gif" else active = 1 removetype = 2 delete_text = delete_text delimage = "delete.gif" end if else active = 1 end if '============Delete/Undelete Items from the guestbook display============ remove = request.querystring("remove") if remove = 1 then Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path removetype = request.querystring("removetype") mySQL = "UPDATE tblPost SET Active = " & removetype & " WHERE ID = " & ID & ";" response.write "updating" dConn.execute(mySQL) dConn.Close set dConn = Nothing response.redirect("gastenboek.asp") end if '============End Delete Section============ Set dataRS = Server.CreateObject("ADODB.RecordSet") dataSQL = "Select TOP " & show_posts & " message, auth_user, remote_addr, sysdate, systime, id FROM tblPost WHERE active = " & active & " order by sysdate DESC, systime DESC;" 'Response.Write dataSQL 'response.end Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path dataRS.Open dataSQL, dConn, 1, 3 recordcount = dataRS.recordcount if recordcount > 0 then data = dataRS.GetRows() 'Data is retrieved so close all connections dataRS.Close Set dataRS = Nothing dconn.close set dconn = nothing 'Setup for array usage iRecFirst = LBound(data, 2) iRecLast = UBound(data, 2) end if '============IF IS A POST BACK============ vnumber = request.form("vnumber") message = trim(request.form("message")) auth_user = trim(request.form("auth_user")) & " uit " & trim(request.form("woonplaats")) if request.form("ispostback") = 1 AND vnumber <> "" AND (len(message) > minimum_length) then if allow_html = "no" then message = RemoveHTMLtags(message) auth_user = RemoveHTMLtags(auth_user) else message = PreSubmit2(message) end if if LCase(vnumber) <> "waregem" then response.write "
verification error
" response.end end if strSQL = "tblPost" 'Open a recordset Set cRS2 = Server.CreateObject("ADODB.recordset") Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path cRS2.Open strSQL, dConn, 1,3 cRS2.AddNew cRS2("message") = message cRS2("sysdate") = date() cRS2("auth_user") = auth_user cRS2("systime") = time() cRS2("remote_addr") = request.ServerVariables("remote_addr") cRS2("Active") = 1 cRS2.Update cRS2.Close Set cRS2 = Nothing dConn.Close Set dConn = Nothing response.redirect("gastenboek.asp") end if '============End POSTBACK Section============ RandomNumber1 = Month(date()) RandomNumber2 = Day(date()) Function FormatMediumDate(DateValue) Dim strYYYY Dim strMM Dim strDD strYYYY = CStr(DatePart("yyyy", DateValue)) strMM = CStr(DatePart("m", DateValue)) If Len(strMM) = 1 Then strMM = "0" & strMM strDD = CStr(DatePart("d", DateValue)) If Len(strDD) = 1 Then strDD = "0" & strDD FormatMediumDate = strDD & "/" & strMM & "/" & strYYYY End Function %>Bienvenue sur le livre d'or du meeting de montgolfières à Waregem, en Belgique. |
---|