hola,
Estoy haciendo unos modifiaciones sobre un sitio ya diseñado y programado.
pero es algo nuevo para mi y me gustaria si alguen me podria dar un pequeñita inducion de como funciona o un link donde pueda leer al repecto.
este sitio tiene dos paginas una en asp y otra en htm osea para cada pagina asp crean un htm en el htm tienen el diseño y nada de codigo y bueno en la asp el codigo. el punto es que no se donde es q el htm ase referencia o como se ase referencia al asp en cada caso osea en el asp tiene este codigo q supongo llama al htm Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(PATH & "admin/categoria.htm")
Pero como se cuando estoy invocando un texbox o un lisbox etc
le muestro un pedaso de los codigos htm
<table border="0" cellpadding="3" cellspacing="3" class="text_tetrapak">
<tr>
<td><div align="center"><strong><font color="707e67">Descripción</font></strong></div></td>
<td><div align="center"><strong><font color="707e67">Editar</font></strong></div></td>
<td><div align="center"><strong><font color="707e67">Eliminar</font></strong></div></td>
<td><div align="center"><strong><font color="707e67">Productos</font></strong></div></td>
</tr>
!ITEMS!
</table>
!ITEMS! me muestra el recorset de la consulta y los botones de editar eliminar para cada fila pero ojo solo tengo el items como referencia
el asp
strNombreUsuario = Session("NOMBRE")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(PATH & "admin/categoria.htm")
Do While Not a.AtEndOfStream
strRespuesta = a.ReadLine
strRespuesta = Replace(strRespuesta, "!PAISLOCAL!", CONSTANTEPAISLOCAL)
strRespuesta = Replace(strRespuesta, "!NOMBREUSUARIO!", strNombreUsuario)
strRespuesta = Replace(strRespuesta, "!AAA!", intaaa+1)
strRespuesta = Replace(strRespuesta, "!AAAB!", straaab)
strRespuesta = Replace(strRespuesta, "!ERROR!", "")
If (Instr(strRespuesta, "!ITEMS!") <> 0) AND (Len(strRespuesta) > 0) Then
strRespuesta = Replace(strRespuesta, " ", "")
strRespuesta = Replace(strRespuesta, chr(9), "")
Response.write Left(strRespuesta, Instr(strRespuesta, "!ITEMS!")-1)
Call lista_items()
Response.write Right(strRespuesta, InstrRev(strRespuesta, "!ITEMS!")-1)
strRespuesta = ""
End If
Response.Write strRespuesta & Chr(10)
Loop
a.Close
Conn.Close
Set Conn = nothing
sub lista_items()
strsql = "SELECT DESCRIPCION, IDCATEGORIA FROM CATEGORIA ORDER BY DESCRIPCION"
set rst = conn.execute(strsql)
if not rst.eof then
do while not rst.eof
response.write "<tr> <td align=""left"">"&formatear_texto(rst("descripcion" ))&"</td> <td><div align=""center""><a href=""editar_categoria.asp?id="&rst("idCATEGORIA" )&"""><img src=""../images/EDITAR.gif"" alt=""Modificar o Consultar Información de la Categoría"" width=""32"" height=""24"" border=""0"" onmouseover=""style.cursor='hand'""""></a></div></td> <td><div align=""center""><a href=""javascript:if (confirm('Esta seguro que desea eliminar esta Categoría?')) {window.location = 'eliminar_categoria.asp?id="&rst("idCATEGORIA")&"' ;}""><img src=""../images/ELIMINAR.gif"" alt=""Eliminar Categoría"" width=""32"" height=""24"" border=""0"" onmouseover=""style.cursor='hand'""></a></div></td> <td><div align=""center""><a href=""ver_productos_categoria.asp?id="&rst("idCAT EGORIA")&"""><img src=""../images/lupa.gif"" alt=""Ver productos que pertenecen a esta Categoría"" width=""32"" height=""24"" border=""0"" onmouseover=""style.cursor='hand'""""></a></div></td></tr>"
rst.movenext
loop
end if
end sub
gracias
saludos
