<% Dim refererURL refererURL = Request.ServerVariables("HTTP_REFERER") 'if Right(refererURL,4) <>".asp" then 'response.redirect "http://www.yahoo.com" 'end if Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim testeo if request("id")=1 then nombre=request("nombre") email=request("email") web=request("web") comentario=request("comentario") ip = Request.ServerVariables("REMOTE_ADDR") nombre=replace(nombre,"'","`") email=replace(email,"'","`") web=replace(web,"'","`") comentario=replace(comentario,"'","`") nombre=replace(nombre,"<","") email=replace(email,"<","") web=replace(web,"<","") comentario=replace(comentario,"<","") nombre=replace(nombre,">","") email=replace(email,">","") web=replace(web,">","") comentario=replace(comentario,">","") commentInsert = "no" comentario = Replace(comentario, vbCr, " ") comentario = Replace(comentario, vbLf, " ") comentario = Replace(comentario, vbTab, " ") if nombre<>"" and comentario<>"" then if Request.ServerVariables("HTTP_REFERER") <>"" then sql= "Insert into guestbook(email, nombre, fecha, hora, comentarios, URL, IP) values('"&email&"','"&nombre&"','"&date&"','"&time&"','"&comentario&"','"&web&"','"&ip&"')" commentInsert = "yes" 'con.execute (sql) end if msg = "" msg = msg & " " & "Fecha: " & Date() & "
" msg = msg & " " & "Nombre : " & nombre & "
" msg = msg & " " & "Email : " & email & "
" msg = msg & " " & "Url : " & web & "
" msg = msg & " " & "Comentario : " & comentario & "
" & "
" msg = msg & " " & "IP : " & ip & "
" & "
" msg = msg & " " & "Comentario saved : " & commentInsert & "
" & "
" msg = msg & " " & "Referer Page : " & Request.ServerVariables("HTTP_REFERER") & "
" & "
" if Request.ServerVariables("HTTP_REFERER") <>"" then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "mail.goodstuff.cl" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "c_valdes29@hotmail.com" .To = "c_valdes29@hotmail.com" .Subject = "Nuevo Ingreso en Web La Serena" .HTMLBody = msg .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing end if response.redirect "libro_de_visitas.asp" end if end if set rs3 = server.createobject("adodb.recordset") iPageSize = 6 If Request("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request("page")) End If sql2 = "select * from guestbook order by fecha desc, hora desc" 'set rs3=con.execute(sql2) rs3.open sql2, con, 1 'set rs3=con.execute(sql2) rs3.PageSize = iPageSize rs3.CacheSize = iPageSize vinculo = "" if request("palabra") <> "" then vinculo = "&palabra=" & request("palabra") end if iPageCount = rs3.PageCount ' response.write iPageCount ' response.write rs3.eof if iPageCurrent>iPageCount then iPageCurrent=1 elseif iPageCurrent<=0 then iPageCurrent=1 end if If iPageCount = 0 Then Pag_de_Pags = "No se encontraron coincidencias." else rs3.AbsolutePage = iPageCurrent Pag_de_Pags = "Pagina " & iPageCurrent & " de " &iPageCount end if sql3 = "select count(*) as total from guestbook" set rs=con.execute(sql3) %> Paracaidismo La Serena - CHILE




Libro de Visitas

 

<%if request("id")=2 then%> Gracias por su comentario! <%end if%>

Nombre:
Email:
Mi Sitio Web:

Comentario:


250 Caracteres Máx.
 
Comentarios de Nuestros Visitantes
Total comentarios= <%=rs("total")%>

<%=Pag_de_Pags%>
<% if iPageCount > 1 Then If iPageCount > 1 and iPageCurrent <> 1 Then%> Primera    <% end if If iPageCurrent <> 1 Then %> Anterior    <% End If If iPageCount > 1 Then for i = 1 to iPageCount if iPageCurrent = i then%> <%=i%> <%else%> <%=i%> <% end if next%>    <% end if If iPageCurrent < iPageCount Then %> Siguiente    <% End If If iPageCount > 1 and iPageCurrent < iPageCount Then%> Ultima <% end if end if%>



<% dim n,c,e,u iRecordsShown = 0%> <%while iRecordsShown < iPageSize And not rs3.eof n="" c="" e="" u="" n=rs3("nombre") c=rs3("comentarios") e=rs3("email") u=rs3("url") if n<>"" then n=replace(n,"<","") end if if c<>"" then c=replace(c,"<","") end if if e<>"" then e=replace(e,"<","") end if if u<>"" then u=replace(u,"<","") end if response.write "" response.write "" response.write "" response.write "
" response.write "Nombre:"&" "&n&"" response.write " - " response.write ""&rs3("fecha")&" "&rs3("hora")&"
" response.write "Email:"&" "&e&"" response.write " - " response.write "URL:"&" "&u&"
" response.write "Comentarios:"&" "&c&"" response.write "
" response.write "" iRecordsShown = iRecordsShown + 1 rs3.movenext wend rs3.close %>