Foros del Web - Ver Mensaje Individual

Owen-Bonilla · #10 (**permalink**) 24/03/2002, 02:45

LOGON.ASP

Código:

&lt;%language=&quot;vbscript&quot;%&gt;

&lt;%
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set base = Server.Createobject(&quot;ADODB.Recordset&quot;)
sConnection = &quot;Provider=Microsoft.Jet.OLEDB.4.0;&quot; &amp; _
              &quot;Data Source=&quot;&amp; _
Server.MapPath(&quot;db/datos.mdb&quot;) &amp; _
&quot;;&quot; &amp; _
              &quot;Persist Security Info=False&quot;
Conn.Open(sConnection)

base.Open &quot;alumno&quot;, Conn, 3 , 3

dim valido
valido=0

while (NOT base.EOF)
	if(CINT(base.fields(&quot;clave_alumno&quot;))=CINT(Request.form(&quot;clave_alumno&quot;))) THEN

		valido=1

	end if
base.movenext()
wend

if (valido=1)then
%&gt;

&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;Weblaguna [ Bienvenido ]&lt;/TITLE&gt;
&lt;META name=&quot;description&quot; content=&quot;&quot;&gt;
&lt;META name=&quot;keywords&quot; content=&quot;&quot;&gt;
&lt;META name=&quot;generator&quot; content=&quot;CuteHTML&quot;&gt;
&lt;/HEAD&gt;
&lt;BODY BGCOLOR=&quot;#FFFFFF&quot; TEXT=&quot;#000000&quot; LINK=&quot;#0000FF&quot; VLINK=&quot;#800080&quot;&gt;
&lt;p&gt;valido&lt;/p&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;
&lt;%else
%&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;&lt;/TITLE&gt;
&lt;META name=&quot;description&quot; content=&quot;&quot;&gt;
&lt;META name=&quot;keywords&quot; content=&quot;&quot;&gt;
&lt;META name=&quot;generator&quot; content=&quot;CuteHTML&quot;&gt;
&lt;/HEAD&gt;
&lt;BODY BGCOLOR=&quot;#FFFFFF&quot; TEXT=&quot;#000000&quot; LINK=&quot;#0000FF&quot; VLINK=&quot;#800080&quot;&gt;
&lt;%=valido%&gt;
&lt;p&gt;no valido&lt;/p&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;
&lt;%end if%&gt;

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]