88 messaggi dal 24 giugno 2003
prima di tutto buona sera a tutti :)
il mio problema consiste nel :
devo creare un ciclo if nidificato
ma non riesco a farlo o almeno non ne ho la base -_-'
qualcuno di voi è in grado di aiutarmi ?

if attivo = "vero" then
Dim Conne

Set Conne=Server.CreateObject("ADODB.Connection")
Conne.Open " Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& Server.MapPath(""&databasemessaggi&"")
Dim sr
Set sr = Server.CreateObject("ADODB.Recordset")
sr.open " Select * From messaggi where user_nick ="&nick&" and user_nuovo ='0'", conne , 1,3
nuovo = sr.recordcount

if nuovo = "0" then nuovo_numeri= "nuovi messaggi = 0 "
elseif nuovo <> "0" then nuovo_numeri= " nuovi messaggi = "&nuovo&""
end if
end if
sr.close
conne.close
menuuser = "<table width=750 height=100% border=0 cellpadding=0 cellspacing=0>"&_
"<tr>"&_
"<td width=20% height=30 valign=middle class=testomenuuser> User "&nick&" "&nuovo_numeri&"</td>"&_
"<td width=20% height=30 valign=middle align=right><a href=messaggi.asp?msg=new class=linkuser>Leggi messaggi</a> </td>"&_
"<td width=20% height=30 valign=middle align=right><a href=messaggi.asp?msg=vec class=linkuser>Leggi messaggi vecchi</a> </td>"&_
"<td width=20% height=30 valign=middle align=right><a href=messaggi.asp?msg=prv class=linkuser>Leggi messaggi privati</a></td>"&_
"</tr>"&_
"</table>"

elseif Attivo <> "vero" then
menuuser =" <td colspan=2 bgcolor=#ffffff height=22>&nbsp;</td>"
end if
end if

ho provato a buttare giu questo codice ma
non funziona e non so proprio come fare qualcuno di voi sa dirmi come fare?
if attivo = "vero" then 
  Dim Conne 

  Set Conne=Server.CreateObject("ADODB.Connection") 
  Conne.Open " Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& Server.MapPath(""&databasemessaggi&"") 
  Dim sr 
  Set sr = Server.CreateObject("ADODB.Recordset") 
  sr.open " Select * From messaggi where user_nick ="&nick&" and user_nuovo ='0'", conne , 1,3 
  nuovo = sr.recordcount 

  if nuovo = "0" then nuovo_numeri = "nuovi messaggi = 0 " 
    elseif nuovo <> "0" then nuovo_numeri = " nuovi messaggi = "&nuovo&"" 
  end if 
  sr.close 
  conne.close 
  menuuser = "<table width=750 height=100% border=0 cellpadding=0 cellspacing=0>"&_ 
  "<tr>"&_ 
  "<td width=20% height=30 valign=middle class=testomenuuser> User "&nick&" "&nuovo_numeri&"</td>"&_ 
  "<td width=20% height=30 valign=middle align=right><a href=messaggi.asp?msg=new class=linkuser>Leggi messaggi</a> </td>"&_ 
  "<td width=20% height=30 valign=middle align=right><a href=messaggi.asp?msg=vec class=linkuser>Leggi messaggi vecchi</a> </td>"&_ 
  "<td width=20% height=30 valign=middle align=right><a href=messaggi.asp?msg=prv class=linkuser>Leggi messaggi privati</a> </td>"&_ 
  "</tr>"&_ 
  "</table>" 

else
  menuuser = " <td colspan=2 bgcolor=#ffffff height=22>&nbsp;</td>" 
end if 

--
Andrea Palmatè

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.