|
| A continuacion se presentas las respuestas a las preguntas mas frecuentes: |
<%if rstFaq.EOF then%>
No hay Faqs disponibles en este momento.
Disculpe las molestias
|
<% else
Do while not rstFaq.EOF%>
| <%= rstFaq ("Fecha") %> |
|
|
<%= rstFaq ("Pregunta") %>
|
Respuesta:
<% 'Para distinguir punto y aparte del punto y seguido
Dim Pos, textotemp, texto
Pos = 1
textotemp = ""
texto = ""
textotemp = rstFaq ("Respuesta")
Do while not Pos = 0
Pos = InStr (Pos + 1, textotemp, Chr (13))
If Pos <> 0 then
texto = texto + Left (textotemp, Pos)
texto = texto + "
"
Pos = Pos + 1
textotemp = Right (textotemp, Len (textotemp) - Pos)
Else
texto = texto + textotemp
End if
Loop
%>
<% = texto %>
|
<% ' Siguiente registro
rstFaq.MoveNext
Loop %>
<%End if
'Cierre de la base de datos
rstFaq.Close
Set rstFaq = Nothing
%>
Si desea obtener información legal, de compra o política de seguridad de esta web: Información General.
|
|
Copyright - 1999, Biomed - Pharma
S.L. Tenerife , info@biomedpharma.com |
|
C/ Angel Guimera 41 ,
38003 Santa Cruz de Tenerife - Tel. 922 53 17 17 - Fax. 922
532675
|
|
