<% Function Emote(Str) Str = Replace(Str,"[","") Emote = Str End function Dim objCon, objRs, strSQL If Request("dbg") = 1 Then Session("Admin_Logged") = True End If Select Case lCase(Request("act")) Case "add" %> <% Case "confirm" Dim blnConfirm, strMsg blnConfirm = True If Len(Request("strName")) < 3 Then blnConfirm = False strMsg = strMsg & "el nombre no puede ser menor a 3 caracteres." & "
" & vbcrlf End IF If InStr(Request("strMail"),"@") = 0 Then blnConfirm = False strMsg = strMsg & "Correo electrónico incorrecto" & "
" & vbcrlf ElseIf InStr(Request("strMail"),".") = 0 or Len(Request("strMail")) < 4 Then blnConfirm = False strMsg = strMsg & "Correo electrónico incorrecto" & "
" & vbcrlf ElseIf InStr(Request("strMail"),".") = Instr(Request("strMail"),"@")+1 Then blnConfirm = False strMsg = strMsg & "Correo electrónico incorrecto" & "
" & vbcrlf End If If Request("strURL") <> "" Then If inStr(Request("strURL"),"http://") = 0 Then blnConfirm = False strMsg = strMsg & "URL incorrecta. debe contener http://" End If End If If Len(Request("strMsg")) < 3 Then blnConfirm = False strMsg = strMsg & "mensaje corto." & "
" & vbcrlf End If If Not blnConfirm Then %>

Se encontraron algunos errores. por favor revisa tu mensaje

<% If strMsg <> "" Then %> <%=strMsg%> <% Else %> Envío correcto <% End If %>

Regresar <% Else %>

Por favor verifica que los 5 dígitos ingresados sean los mostrados.

<% End If Case "addconfirm" If Request("strImgVerify") = Session("lngSecCode") Then Set objCon = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.RecordSet") objCon.Provider = "MICROSOFT.JET.OLEDB.4.0" objCon.Open Server.MapPath(strDBPath) 'strDBPath - Variable set in incConfig.asp strSQL = "SELECT * FROM " & strTableName 'Response.Write strSQL 'Response.Flush objRs.Open strSQL, objCon, 3, 3 objRs.AddNew objRs("Name") = Request("strName") objRs("Email") = Request("strMail") objRs("Location") = Request("strLocation") objRs("URL") = Request("strURL") objRs("Comment") = Request("strMsg") 'objRs("Private") = Request("blnPrivate") objRs("DateTime") = Now() objRs("ShowOnHomepage") = False objRs.Update If Err.number <> 0 Then%>

Ha ocurrido un error y tu mensaje no puede ser registrado.

<% Else %>

Felicidades tu mensaje ha sido registrado correctamente.

" Class="Mlink">Regresar al libro

<% End If objRs.Close objCon.Close Set objRs = Nothing Set objCon = Nothing Else %>

El código de seguridad no coincide

Regresar

<% End If Case "admin_update" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Provider = "Microsoft.Jet.OleDB.4.0" objCon.Open Server.MapPath(strDBPath) objCon.Execute "Update " & strTableName & " Set ShowOnHomepage=False" Dim sID For Each sID in Request("sID") objCon.Execute "Update " & strTableName & " Set ShowOnHomepage=True Where Id=" & sID Next %>

Actualización exitosa

" Class="Mlink">Regresar al libro

<% objCon.Close Set objCon = Nothing Case "admin_delete" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Provider = "Microsoft.Jet.OleDB.4.0" objCon.Open Server.MapPath(strDBPath) Dim strID, intCount intCount = 0 If Request.Form("dID").Count > 0 Then For Each strID in Request("dID") intCount = intCount + 1 objCon.Execute "Delete * From " & strTableName & " Where Id=" & strID'Clear Data Next %>

<%=intCount%> registros borrados

" Class="Mlink">Regresar al libro

<% Else %>

No hay registros seleccionados

" Class="Mlink">Regresar al libro

<% End If objCon.Close Set objCon = Nothing Case "login" If Request("strID") = strAdminID AND Request("strPass") = strAdminPassword Then Session("Admin_Logged") = True %>

You have logged in successfully

" Class="Mlink">Regresar al libro

<% Else %> <% End If Case "logout" Session("Admin_Logged") = False %>

Has salido correctamente

" Class="Mlink">Regresar al libro

<% Case Else Dim strClass1, strClass2 Set objCon = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.RecordSet") objCon.Provider = "Microsoft.Jet.OleDB.4.0" objCon.Open Server.MapPath(strDBPath) strSQL = "Select * From " & strTableName & " Where Private=False Order By Id" If Request("orderby") = "1" Then strSQL = strSQL & " Desc" ElseIf Request("orderby") = "2" Then strSQL = strSQL & " Asc" Else strSQL = strSQL & " Desc" End If objRs.Open strSQL, objCon If objRs.BOF or objRs.EOF Then %>

No hay registros en el libro

<% Else objRs.MoveFirst strClass1 = "c1" strClass2 = "c4" %>

?act=add" Title="Firmar libro" Class="Mlink">Firmar libro de visitas<% if not session("admin_logged") then %> | ?act=login" title="Login" Class="Mlink">Ingreso panel de control<% End If %>

<% If Session("Admin_Logged") Then %>

"> <% End If %> <% Do Until objRs.EOF Fecha = Mid(objRs("DateTime"),1,10) %> <% If strClass1 = "C1" Then strClass1 ="C2" strClass2 ="C3" ElseIf strClass1="C2" Then strClass1 = "C1" strClass2 = "C4" End If objRs.MoveNext Loop If Session("Admin_Logged") Then %> <% End If %>

?orderby=1" Title="Descendiente" Class="Mlink">Descendiente | ?orderby=2" Title="Ascendiente" Class="Mlink">Ascendiente

<% If Session("Admin_Logged") Then %> <% End If %>

Nombre : <%=objRs("Name")%>	Ubicación : <%=objRs("Location")%>	<%=FormatDateTime(Fecha,VbLongDate)%> ">

<%=Emote(Replace(objRs("Comment"),VbCrlf," "))%>

Correo : <%=objRs("Email")%>		URL : " Target="_Blank"><%=objRs("URL")%>
" <%If objRs("ShowOnHomepage")Then%>Checked<%End IF%>> Mostrar en libro	"> Borrar

?orderby=1" Title="Descendiente" Class="Mlink">Descendiente | ?orderby=2" Title="Ascendiente" Class="Mlink">Ascendiente

<% If Session("Admin_Logged") Then %> ">

<% End If %> <% End IF %>

?act=add" Title="Firmar libro" Class="Mlink">Firmar libro de visitas<% if not session("admin_logged") then %> | ?act=login" title="Login" Class="Mlink">Ingreso panel de control<% End If %>

<% objRs.Close objCon.Close Set objRs = Nothing Set objCon = Nothing End Select %>

Acceso Panel de Control
Usuario
Contraseña