stampare immagini a seconda della variabile

[zeweb]

dici che non mi serve perche faccio le IF?

dopo la SQL devo farmi una condizione che se:

if tip_UK="receiver" then
response.write "immagine1"
else
response.write "immagine0"


if tip_UK="transmitter" then
response.write "immagine2"
else
response.write "immagine0"

if tip_UK="key-fob" then
response.write "immagine3"
else
response.write "immagine0"

mi dici come devo scrivere...

<% 
tip_UK=request.querystring("tip_UK") 
'APERTURA CONNESSIONE CON IL DATABASE SENZA DSN 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb")
set rs=server.createobject("ADODB.Recordset") 
strSQL = "select * from products where tip_UK = '" & tip_UK &"'"
rs.open strSQL, objConn
if not rs.EOF then
response.write "RX"
else
response.write "no RX"
end if
rs.Close
set rs=nothing
%>

[zeweb]

una cosa del genere ma non mi funziona...

<% 
tip_UK=request.querystring("tip_UK") 
'APERTURA CONNESSIONE CON IL DATABASE SENZA DSN 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb")
set rs=server.createobject("ADODB.Recordset") 
strSQL = "select * from products"
rs.open strSQL, objConn
if tip_UK="receiver" then
response.write "[img]/wireless/images/top_receivers.jpg[/img]"
else
response.write "[img]/wireless/images/top_home.jpg[/img]"
end if
if tip_UK="transmitter" then
response.write "[img]/wireless/images/top_hybrids.jpg[/img]"
else
response.write "[img]/wireless/images/top_home.jpg[/img]"
end if
rs.Close
set rs=nothing
%>

[Roby_72]

Ma quale "tip_UK" fa fede: quello che passi in querystring oppure quello nel recordset?
In questo secondo caso devi fare una cosa del tipo:

if rs("tip_UK") = "receiver" then

Roby

[zeweb]

quello che passo in query.string !

[Roby_72]

Il recordset a che serve?

Roby

[zeweb]

in effetti a nulla ...quindi come correggo?

[Roby_72]

if tip_UK="receiver" then
response.write "[img]/wireless/images/top_receivers.jpg[/img]"
elseif tip_UK="transmitter" then
response.write "[img]/wireless/images/top_hybrids.jpg[/img]"
else
response.write "[img]/wireless/images/top_home.jpg[/img]"
end if

Roby

[zeweb]

no mi stampa le immagini giuste.

[CODE]
<%
tip_UK=request.querystring("tip_UK")
'APERTURA CONNESSIONE CON IL DATABASE SENZA DSN
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb")
set rs=server.createobject("ADODB.Recordset")
strSQL = "select * from products"
rs.open strSQL, objConn
if tip_UK="receiver" then
response.write "[img]/wireless/images/top_receivers.jpg[/img]"
elseif tip_UK="transmitter" then
response.write "[img]/wireless/images/top_hybrids.jpg[/img]"
elseif tip_UK="key-fob" then
response.write "[img]/wireless/images/top_keyfobs.jpg[/img]"
elseif tip_UK="special" then
response.write "[img]/wireless/images/top_special.jpg[/img]"
else
response.write "[img]/wireless/images/top_home.jpg[/img]"
end if
rs.Close
set rs=nothing
%>
[CODE]

[Roby_72]

Il recordset non serve.. Comincia a togliere le cose inutili...

Roby

[zeweb]

Allora facciamo un passo alla volta. Ora io mi devo solo stampare i Rs di un campo e ho scritto così.

Mi sembra la sintaggi giusta ma:

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/wireless/Uk/product_oriz3.asp, line 237

<% 
comp=request("comp")
'Apertura connessione database
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb")
objConn.Open
'Creo variabile SQL
Dim strSQL
strSQL = "SELECT * FROM products WHERE comp="& comp
'Creo l'istanza dell'oggetto rs ed eseguo SQL
Dim objRS
set objRS=server.createobject("ADODB.Recordset") 
objRS.Open strSQL, objConn

' Si visualizzano i contenuti
Do while Not objRS.EOF
	Response.write "" & objRS("model") & "
"
'Posizionamento alla riga successiva
	objRS.MoveNext
Loop
'Pulizia ADO
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>