15/12/2003, 04:23
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 23 años, 4 meses Puntos: 2 | |
| gracias le di no se cuatos cambios a mi codigo y no queda quisa sea por algo que puse mala
este es mi codigo original
<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB ,1 ,2
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>")
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
%>
</body>
</html>
este funciona tengo una base en acces que se llama afiliados y en una tabla que se llama afiliados estan los campos nombre correo empresa requisitos ya hise lo que esta en el codigo que dejaste pero no funciona aparte en rs.open conexion,sql,1,2 es paresido a TBL.Open "Afiliados" ,DB ,1 ,2 por lo que deje eso asi este es mi codigo final pero aparese me marca error
gracias
<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB ,1 ,2
Mi_var = rs.fields("Requisitos")
TBL.close
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b><input type="text" name="txt" size="20" value="<%=Mi_var%>"><br><br><hr>")
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
%>
</body>
</html>
otra cosa cuando pongo la linea
<input type="text" name="txt" size="20" value="<%=Mi_var%>">
en el< codigo original tine como codig asp 4 linas mas y cuando a aprese esta linea me lo da como si fuera htm
esto seve haora que estoy en frontpag y me da 2 colores distinto
espero me puedan decir donde estoy mal gracias
Última edición por ivan02; 15/12/2003 a las 04:27 |