<%@LANGUAGE="VBSCRIPT"%> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _ Server.MapPath("guestbook.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.open strConnect Set objRS = Server.CreateObject("ADODB.RecordSet") Set maxid = Server.CreateObject("ADODB.RecordSet") maxid.open "select max(id) from guestbook",objConn,2,2 objRS.open "select * from guestbook",objConn,2,2 dim m if objRS.BOF and objRS.EOF then m = 1 else m = maxid(0) + 1 end if 'Response.Write m %> Knjiga vtisov

" & vbCrLf) end if %>
Ime:
E-mail:
Komentar:

Spremeni sliko
Prepišite znake iz zgornje slike v spodnje okence
<% if not IsEmpty(Request.Form("Posreduj moje podatke")) then Response.Write("
") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then Response.Write("The code you enter verified.") dim a, b, c, d a = Request.Form("name") b = Request.Form("email") c = Request.Form("comments") d = now() 'Response.Write d if len(a) > 1 and len(b) > 1 and len(c) > 1 then objRS.AddNew objrs("name") = a objrs("email") = b objrs("comments") = c objrs("date") = d objrs("id") = m objRS.Update end if else Response.Write("Prepisali ste napačne znake.") end if Response.Write("
<% if objrs.BOF and objrs.EOF then %><%Response.Write "
Se opravičujemo, trenutno ni podatkov v bazi
" %>

<% else objrs.MoveLast Do While NOT objrs.bof %>
Ime:<% Response.Write objrs("name") %>
Komentar:<%Response.Write objrs("comments")%>
<%Response.Write objrs("date")%> (GMT Cas)

<% objrs.MovePrevious loop end if %>

Prilagojeno za resolucijo 800*600
Copyright © Kunst Srečko s.p., Izdelava: Forma Brežice d.o.o., Vstop na strani administracije