<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Documento sin título

Preguntas Frecuentes

 

<% dim cn dim rs Dim color Dim Link Dim Duda Dim Solucion colorCelda="#FFFFFF" colorLetra="#6699FF" set cn=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.Recordset") cn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("FAQ1.mdb") cn.open rs.open "SELECT Duda, Solucion,Link FROM Preguntas", cn %>

<% do until rs.eof if colorCelda="#6699FF" then colorCelda="#FFFFFF" colorLetra="##6699FF" else colorCelda="#6699FF" colorLetra="#FFFFFF" end if %> <% Duda=rs.fields("Duda") Link=rs.fields("Link") if ucase(left(Link,7)) <> "HTTP://" AND ucase(left(Link,6)) <> "FTP://" then link="HTTP://" & Link end if Solucion=rs.fields("Solucion") %> <% if Link <> "" then %> <% else %> <% end if %> <% rs.movenext loop %>
<%="Duda"%> <%="Solucion"%> <%="Link"%>
<%=Duda%> <%=Solucion%> Material Extra