Ver Mensaje Individual
  #13 (permalink)  
Antiguo 15/06/2006, 21:07
Curiel
 
Fecha de Ingreso: enero-2003
Mensajes: 251
Antigüedad: 22 años, 3 meses
Puntos: 0
Hola Amigos, muchas gracias por interearse y responder

Les cuento que ahora ya me funciona en parte pues le doy los siguientes ejemplos y si funciona: http://localhost/Prueba.asp, http://localhost/Hola.asp o http://localhost/localstart.asp.

Dentro de la carpeta wwwroot, cree una carpeta en la cual pongo un archivo default.asp y tambien funciona.

El problema es que si trato de hacerlo a traves de un html el cual va a llamar un swf quien asu vez manda llamar al archivo Asp, asì ya no funciona.

Les pongo el codigo de los archivos:

Archivo SWF

Fotograma 1.- Tengo un campo de texto en el cual solicito el nombre de un empleado y un boton envialr con el siguiente codigo:
on (release) {
gotoAndPlay(2);
}

Fotograma 2.- En acciones tengo el siguiente còdigo: loadVariables("employee.asp", 0, "GET"); para llamar al archivo asp

Fotograma3.- En el campo acciones tengo este codigo
if (NameFirst != "") {
gotoAndStop(9);
}
NameFirst es una variable que debe retornar el Archivo Asp, la cual comparo y si es dif. de nulo, significa que encontro al empleado y por lo tanto me voy al fotograma 9 en donde muestro los datos que regreso del empleado.

El codigo del Archivo employee.asp es el siguiente.

<%@Language="VBScript"%>

<%
Dim oRS, oConn

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("employees.mdb")
oConn.Open

oRS.Open "SELECT * FROM Employees", oConn, 2, 3
oRS.Find "NameLast = '" & UCase(Request.QueryString("strSearch")) & "'"
If oRS.EOF Then
Response.Write "NameLast=Not+Found&NameFirst=Not+Found&Positi on=N ot+Found"
Else
Response.Write "NameFirst=" & Server.URLEncode(oRS("NameFirst")) & "&NameLast=" & Server.URLEncode(oRS("NameLast")) & "&Position=" & Server.URLEncode(oRS("Position"))
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

Les comentaba en el post inicial que este ejemlo lo baje de un link que dieron en el foro y lo probe en la pàgina y si funciona. Pero en mi maquina nada mas nada.

Ojala, puedan seguir ayudandome.
Mil gracias anticipadas
Atte. Curiel