Title: Message
Hola, estoy creando una página ASP www.marvalsa.com/sagunto y la cadena de conexión que uso con el as400 para validar los clientes es algo así:
 
<%@ Language=VBScript %>
<%
  Set Conn=Server.CreateObject("ADODB.Connection")
  Set fich=Server.CreateObject("ADODB.RecordSet")
  Conn.Open "DSN=sagunto","xxxxx","xxxxx"
  sql="select * from cl3lf where clcod = " & cdbl(Request("NIF"))
%>
 
Me funciona perfectamente, y puedo acceder a los ficheros sin ningún problema, pero ahora necesito hacer lo mismo en la intranet www.marvalsa.com/sagunto/intranet y necesito validar los usuarios contra el perfil que existe en el as400 wrkusrprf, necesito llamar a una CL pasando como parámetro usuario y contraseña y que el as me diga si es correcto. Pero ¿como se hace? ¿que cadena de conexión? por que he probado a hacer esto...
 
comando = "{{CALL PGM(MENU/XCL)}}"
conn.Execute comando
 
y no me pirula
 
he probado también con estas dos cadenas y nanai
 
conexionstring = "Driver={Client Access ODBC Driver (32-bit)};System=172.35.21.15;Uid=xxxxxx;Pwd=xxxxxx"
conexionstring = "Provider=IBMDA400;Data Source=172.30.21.18;,,"
 
¿alguien me puede echar un cable?
Gracias y saludos
 
Juan E. García
Marítima Valenciana, S.A.

Responder a