--- Este es el error que me arrija cuando intento probar --
No se puede mostrar la página .....
Abra la página principal de localhost y, a continuación, busque vínculos a la información que desea. HTTP 500.100. Error interno del servidor: error de ASPServicios de Internet Information Server Información técnica (para personal de soporte técnico)·
Tipo de error:Error de Microsoft VBScript en tiempo de ejecución (0x800A01C2)Número de argumentos erróneo o asignación de propiedad no válida: 'ConsultarDB'/alexander/admregistroent.asp, línea 9·
Tipo de explorador:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página:POST 33 bytes to /alexander/admregistroent.asp ·
Datos de POST:email=inf2&pass=125&Submit=Enviar ·
Hora:sábado, 05 de marzo de 2005, 13:34:54 · ..... bla.. bla... bla...
---- este es el codigo de entrada --- el error lo marca en la linea 9
la variable respp la cree a ultima hora buscardo una escapatorio ya que tenia la pregunta directa if consultarDB(strSQL,4) = "OK" .... pero busque alguna alternativa con esa variable, pero sigui el error....
<title>ADMENTRADA DE REGISTRO</title>
<!--#include file="admconexion.asp"-->
<%
Dim varEmail,varpass,respp
varEmail=Request.Form("email")
varPass=Request.Form("pass")
respp="NO"
strSQL="Select Idcliente,Nombre,Apellido,Idnivel from Clientes where email='" & varEmail & "' and pass='" & varPass & "'"
' EL ERROR ME LO MARCA EN ESTA LINEA *****
respp = ConsultarDB(strSQL,4)
If respp = "OK" then
for f= lbound(arrDatos(1) to ubound(arrDatos(1)
arrDatos(f,C)= Rst(c)
Session(Idcliente) = arrDatos(f,0)
Session(Nomnre) = arrDatos(f,1)
Session(Apellido) = arrDatos(f,2)
Session(Idnivel) = arrDatos(f,3)
next
Response.write("CLIENTE YA ESTA REGISTRADO!!!")
Else
Response.Redirect("insertarcliente.asp")
End If
%>
*** Este es la otra pagina donde estan las funciones ****
<title>admconexion</title>
<%
Dim Conect, Rst, arrDatos(), intnumR
Sub ConectarDB
Set Conect = Server.CreateObject("ADODB.CONNECTION")
Set Rst = Server.CreateObject("ADODB.RECORDSET")
'Conect.ConnectionString ="DSN=nenuco;UID=;PWD=;"
Conect.Open "DSN=informed"
End Sub
Sub DesconectarDB
Set Conect = NOTHING
Set Rst = NOTHING
End Sub
Function ConsultarDB(strQ,intcol)
'Response.write(strQ)
'Response.end
'Response.write "intcol: " + cstr (intcol)
'Response.end
call ConectarDB
Rst.Open strQ,Conect,1
Rst.pagesize=10
If not (Rst.bof and Rst.eof) = true then
Rst.movelast
intnumR=Rst.recordcount
Rst.movefirst
else
IntNumR = 0
End If
If IntNumR > 0 then
redim arrDatos((IntNumR-1),(intcol-1))
For F=Lbound(arrDatos,1) to Ubound(arrDatos,1)
For C=Lbound(arrDatos,2) to Ubound(arrDatos,2)
arrDatos(F,C) = Rst(C)
Next
Rst.movenext
Next
ConsultarDB="OK"
Else
ConsultarDB="NO"
End If
Call DesconectarDB
End Function
Es todo existe un codigo adional que es donde esta la inclusion,,,, pero me urge por lo menos pasar de este primer error luego veo lo que salga....
Muchas gracias por todo....
