Se puede hacer esto

tarlipes · #1 (**permalink**) 14/04/2003, 14:41

Se puede hacer esto??

<%
base= request.form("base")
if base = "pubna then%>

<%else%>

<%end if%>

Juansan · #2 (**permalink**) 14/04/2003, 14:44

porque no??

no olvides las comillas

<%
base= request.form("base")
if base = "pubna" then%>

<%else%>

<%end if%>

Tambien podrias...
<%
if request.form("base") = "pubna" then%>

<%else%>

<%end if%>
y te ahorrarias una variable salvo que la nesecites para otra cosa.

Saludos

tarlipes · #3 (**permalink**) 14/04/2003, 14:51

DIGO... PORQUE CUANDO LO INCLUYO DE ESA MANERA, ME TIRA ESTE ERROR:

Nombre redefinido

/cd/connectionpubnaBRN.asp, line 1

Dim objConn, objRS

Si pongo el include solo, no tira error

connectionpubnaBRN es el incluido (archivo de conneccion)

u_goldman · #4 (**permalink**) 14/04/2003, 14:58

Pero que el error no será porque en los dos archivos tienes Dim objConn, objRS?
Trata dsejando el dimensionamiento en uno solo de los asp's

Salu2,

Juansan · #5 (**permalink**) 14/04/2003, 15:00

habria que ver los archivos connection1 y 2... o el resto del codigo
como vos quieras

tarlipes · #6 (**permalink**) 14/04/2003, 15:02

no, esta solamente en el incluido, ademas, que si pongo un solo archivo de conneccion funciona bien, para mi que no reconoce el if e incluye los dos archivos.

yo armé ese if en la primer línea de la página, puede que sea eso?

Juansan · #7 (**permalink**) 14/04/2003, 15:05

me quedo con la respuesta de u_goldman.
porque no posteas todo el codigo y lo vemos??

Fr@Nc3$c0 · #8 (**permalink**) 14/04/2003, 15:10

sería interesante ver todo el código para averiguar que falla.

Saludos.

tarlipes · #9 (**permalink**) 14/04/2003, 15:12

incluido1 y dos son identicos, salvo porque abren <> tablas:

incluido1:
<%Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")

Dim strDatabaseType
'aca elijo con quien me conecto
'strDatabaseType = "Access"
strDatabaseType = "MSDE"

'abro la coneccion (en este caso abre con access)
If strDatabaseType = "Access" Then
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:\BRN\texto\texto.mdb;" & _
"Persist Security Info=False"
Else
objConn.Open "Provider=SQLOLEDB;Persist Security Info=False;" & _
"User ID=sa; password =jt;Initial Catalog=BRN;" & _
"Initial File Name=G:\BIBLIOTECAS\BRN_Data.mdf"
End If
%>

el code es muuuuuyyyy largo, podría resumirlo un poco, pero de todas maneras creo que el problema esta aca:

asi anda bien:


<html>
<head>
</head>

asi me tira el error:

<%
base= request.form("base")
if base = "pubna" then%>

<%else%>

<%end if%>
<html>
<head>
</head>

no creo que esté mas abajo... o si?

Juansan · #10 (**permalink**) 14/04/2003, 15:37

no se ve nada extraño.
Estas seguro que en ningun otro lugar hay un Dim objConn o un objRS??
en que linea te da el error??

AlZuwaga · #11 (**permalink**) 14/04/2003, 16:05

Yo si veo algo extraño

(aunque en realidad no tiene nada de extraño):

Como los includes se ejecutan ANTES que el ASP, entonces el código final quedaría mas o menos así:

<%
base= request.form("base")
if base = "pubna" then%>
<%
'codigo del incluido 1:
Dim objConn, objRS
%>
<%else%>
<%
'codigo del incluido 2:
Dim objConn, objRS
%>
<%end if%>
<html>
<head>
</head>

Por lo tanto, el error de "Nombre redefinido" es real!
Lo que se me ocurre es que quites todos los DIM de los archivos a incluir y los pongas (sólo una vez) en el archivo inclusor... se entiende?

salud

tarlipes · #12 (**permalink**) 15/04/2003, 07:46

SIP... Pasa que ya los estoy usando en un montón de aplicaciones, y se me vendría la ecatombe, debería hacer dos archivos exclusivos.
Pero de todas maneras, si se ejecuta el código de los dos archivos antes que el code, y cada uno hace una coneccion diferente, ¿no se superpone el valor del recordset y de la coneccion con el último valor?

salute

AlZuwaga · #13 (**permalink**) 15/04/2003, 10:02

No, porque ahí si estaría respeteando el condicional. Si pasa tal cosa, objRS va a ser 'algo'. Si pasa tal otra, objRS va a ser un 'algo' distinto.

tarlipes · #14 (**permalink**) 15/04/2003, 11:07

Complicau pa entenderlo

, pero bue, si usted lo dice.
Usted es el que sabe.

Saludos y gracias.

tarlipes · #15 (**permalink**) 16/04/2003, 11:30

si-si!!! definitivamente así sí funciona.

Gracias a todos!!!!