<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer=True
if Session("aut")<>TRUE then
Response.Write "<img src=img/ierror.gif> <strong>No está autorizado a ver esta página</strong><br><br>"
Response.Write "Puede que no tenga permiso para ver este directorio o página con<br> las credenciales proporcionadas."
Response.Write "<br> <hr width='40%' align='left'><br>"
Response.Write "Si cree que debería poder ver esta página o directorio, intente<br> ponerse en contacto con el administrador del sitio Web<br> acerca de sus permisos."
Response.Write "<br>O intente identificarse desde <a href='http://dxd0002.cfemex.com/web/sub/trab/arch/index.html' target='_parent'>AQUI</a>"
Response.Write "<br><br>HTTP Error 401 - Prohibido<br> Internet Explorer "
Response.End
end if
%>
<HTML>
<HEAD>
<TITLE>iconsultas.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
usuarioc=Request.Form("usuarioc")
consultado= Request.Form("consultado")
if usuarioc="" and consultado="" then
Response.Write("<div align='center'>")
Response.Write("<h1>Insertar un registro para consultas</h1><br>")
Response.Write("<FORM name='form1' METHOD='POST' ACTION='iconsultas.asp'>")
Response.Write("Usuario<br><INPUT NAME='usuarioc' TYPE='TEXT' maxlength='5'><br>")
Response.Write("Consulta a:<br><INPUT NAME='consultado' TYPE='TEXT' maxlength='5'><br>")
Response.Write("<INPUT TYPE='Submit' value='Insertar'>")
Response.Write("</FORM></div>")
else
set conn = server.createobject("ADODB.connection")
conn.Open "ConExp"
'Ahora creamos la sentencia SQL
sSQL="Insert Into consulta (usuarioc,consultado) values ('" & usuarioc & "','" & consultado & "')"
'Ejecutamos la orden
set RS = conn.Execute(sSQL)
Response.Write("<h1><div align='center'>Registro Insertado</div></h1><br><br>")
Response.Write("<input name='Refrescar' type='button' value='Aceptar' onclick='history.back()'>")
end if
%>
</BODY>
</HTML>
