<%If Session("Login") = "1" Then%>
 


<%If Request.QueryString("var") = "" Then%> <%'CONSULTA GENERAL%> <% sqlConsultaGral = " SELECT * FROM servicios" Set rsConsultaGral = Server.CreateObject("ADODB.Recordset") rsConsultaGral.Open sqlConsultaGral,conn %> <%'TITULOS%>

<%While Not rsConsultaGral.EOF%> <%'INFO%> <%rsConsultaGral.MoveNext Wend %>
Servicios
Borrar Titulo Texto Posición Modificar
" onclick="return validar2()"> <%=rsConsultaGral("Titulo")%> <%=mid(rsConsultaGral("Texto"),1,50)%>... <%=rsConsultaGral("Posicion")%> ">
<%End If%> <%If Request.QueryString("var") = "Nuevo" Then%>


<%sql="select max(posicion) as maximo from servicios" set rs=conn.execute(sql)%>
Nuevo Servicio en la posicion <%=rs("maximo")+1%>
ESPAÑOL
 Titulo :
 Texto :
 Email :
 URL :
INGLES
 Titulo :
 Texto :
 Email :
 URL :
 Posición en la pagina : ">
 Rubros ? :
<%If Request.Form("btnGrabar") = "Grabar" Then if request("posicion") = " " then posicion = 0 else posicion = request("posicion") end if If Request.Form("subcategoria") = "on" Then Categoria = 1 Else Categoria = 0 End If insNuevo = " INSERT INTO servicios (titulo,texto,email,posicion,tituloing,textoing,emailing,url,urling,subcategorias) VALUES ('" & Request.Form("titulo") & "','" & Request.Form("texto") & "','" & Request.Form("email") & "'," & posicion & ",'" & Request.Form("tituloing") & "','" & Request.Form("textoing") & "','" & Request.Form("emailing") & "','" & Request.Form("url") & "','" & Request.Form("urling") & "','" & Categoria & "')" Response.Write(insNuevo) conn.Execute (insNuevo) Response.Redirect "?var=" End If%> <%End If%> <%If Request.QueryString("var") = "Borrar" Then sqlBorrar = " DELETE FROM servicios WHERE idservicios='" & Request.QueryString("id") & "'" conn.Execute (sqlBorrar) Response.Redirect "?var=" End If%> <%If Request.QueryString("var") = "Modificar" Then%> <% sqlModificar = " SELECT * FROM servicios WHERE idservicios='" & Request.QueryString("id") & "'" Set rsModificar = Server.CreateObject("ADODB.Recordset") rsModificar.Open sqlModificar,conn %>
>

Modificar Servicios
ESPAÑOL
 Titulo : ">
 Texto :
 Email : ">
 URL : ">
INGLES
 Titulo : ">
 Texto :
 Email : ">
 URL : ">
 Posición en la pagina : ">
 Rubros ? : >
<%If Request.Form("btnActualizar") = "Actualizar" Then if request("posicion") = " " then posicion = 0 else posicion = request("posicion") end if If Request.Form("categoria") = "on" Then Categoria = 1 Else Categoria = 0 End If updActualizar = " UPDATE servicios SET titulo='" & Request.Form("titulo") & "', texto ='" & Request.Form("texto") & "', email ='" & Request.Form("email") & "', emailing ='" & Request.Form("emailing") & "', posicion = " & posicion & " ,tituloing='" & Request.Form("tituloing") & "', textoing ='" & Request.Form("textoing") & "', url ='" & Request.Form("url") & "', urling ='" & Request.Form("urling") & "', subcategorias ='" & Categoria & "' WHERE idservicios ='" & Request.Form("txtId") & "'" conn.Execute (updActualizar) Response.Redirect "?var=" End If%> <%End If%>
<% Else Response.Redirect("Login.asp") End If %>