% response.buffer=true %> <% function getcontenido() Dim Mi_Coneccion dim strout : strout = "" dim c : set c = server.createobject("adodb.connection") dim r : set r = server.createobject("adodb.recordset") dim programa : programa = "select * from explora_atacama where id = 1" c.open "otsi","","" r.open programa, c, 3, 1, &h0001 dim ict : ict = clng(r.recordcount) If not r.bof and not r.eof Then valor1 = r("valor1") valor2 = r("valor2") valor3 = r("valor3") valor4 = r("valor4") valor5 = r("valor5") valor6 = r("valor6") valor7 = r("valor7") valor8 = r("valor8") valor9 = r("valor9") valor10 = r("valor10") valor11 = r("valor11") valor12 = r("valor12") vigencia = r("vigencia") End If r.close : c.close : set r = nothing : set c = nothing strout = strout & "
INICIACION EN ATACAMA | " & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | ATACAMA TOTAL | " & vbcrlf
strout = strout & "|||||
| PROGRAMA | " & vbcrlf strout = strout & "3 NOCHES | " & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | 4 NOCHES " & vbcrlf
strout = strout & " | " & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | 7 NOCHES | " & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | VIGENCIA | " & vbcrlf
strout = strout & "
| HABITACION | " & vbcrlf strout = strout & "SINGLE | " & vbcrlf
strout = strout & "DOBLE | " & vbcrlf
strout = strout & "SINGLE | " & vbcrlf
strout = strout & "DOBLE | " & vbcrlf
strout = strout & "SINGLE | " & vbcrlf
strout = strout & "DOBLE | " & vbcrlf
strout = strout & "" & _
vigencia & " | " & vbcrlf
strout = strout & "
| " & vbcrlf strout = strout & " | "
strout = strout & "" & valor1 & " | " & vbcrlf
' valor1 & "" & vbcrlf
strout = strout & ""
strout = strout & "" & valor2 & " | " & vbcrlf
' valor2 & "" & vbcrlf
strout = strout & ""
strout = strout & "" & valor3 & " | " & vbcrlf
' valor3 & "" & vbcrlf
strout = strout & ""
strout = strout & "" & valor4 & " | " & vbcrlf
' valor4 & "" & vbcrlf
strout = strout & ""
strout = strout & "" & valor5 & " | " & vbcrlf
' valor5 & "" & vbcrlf
strout = strout & ""
strout = strout & "" & valor6 & " | " & vbcrlf
' valor6 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " |
| NIÑO EN CAMA ADICIONAL (HASTA 12 AÑOS) | " & vbcrlf
strout = strout & ""
strout = strout & "" & valor7 & " | " & vbcrlf
' valor7 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | "
strout = strout & "" & valor8 & " | " & vbcrlf
' valor8 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | "
strout = strout & "" & valor9 & " | " & vbcrlf
' valor9 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | " & vbcrlf strout = strout & " |
| HASTA 20 AÑOS (DOBLE, TRIPLE O CUADRUPLE) | " & vbcrlf
strout = strout & ""
strout = strout & "" & valor10 & " | " & vbcrlf
' valor10 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | "
strout = strout & "" & valor11 & " | " & vbcrlf
' valor11 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | "
strout = strout & "" & valor12 & " | " & vbcrlf
' valor12 & "" & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | |
| PROGRAMA DE | " & vbcrlf strout = strout & "VIERNES A LUNES | " & vbcrlf strout = strout & "" & vbcrlf strout = strout & " | LUNES A VIERNES | " & vbcrlf strout = strout & "" & vbcrlf strout = strout & " | LUNES A LUNES O VIERNES A VIERNES | " & vbcrlf
strout = strout & "" & vbcrlf strout = strout & " | " & vbcrlf strout = strout & " |
|
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||
| - | |||||||||||||||||||||||||
| - | |||||||||||||||||||||||||
|
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||