Query DB

[fungo]

Ciao a tutti, ho un problema che non riesco a risolvere.
Vorrei eseguire una query all'interno del ciclo while sotto
Che sappiate voi è possibile ?
Perche mi continua a dare errori.

While Not oRs.EOF
rSQL2 = "SELECT urls.*, urls.uHits FROM urls WHERE (((urls.uHits)>=5));"


Set oRs2 = DBRecordSet(oCn, rSQL2)

Response.Write "['','<div align=""left""><a href="""&oRs("uURL")&""" target=""_blanck"" border=""0""><font color=""#FF0000"">"&GetTranslation("LANG_HITS")&":"&oRs("uHits") &"</font>
"&oRs2("dURL")&"</a></div>','']," & vbCRLF
oRs.MoveNext
Wend

Grazie

[Roby_72]

Si è possibile.
Che errori ti da?
Non vedo però attinenza alcuna tra la seconda query e la prima. Quindi la seconda così com'è è sostanzialmente inutile...

Roby

[fungo]

Scusa ho sbagliato a postare la query, comunque la prima query popola un lista di URL, con l'URL eseguo la seconda query per recuperare altre info da visualizzare.
Purtroppo non ottengo un errore perchè è una modifica sul mio portale aspnuke.

ecco il codice della sub :

[CODE]
Sub DisplayTopHomeEventsWebsiteHits()
Dim oCn, oRs, oRs2, rSQL, rSQL2, iLine
Dim DataAdesso, DataFraUnaSettimana, dt, dtFine, i
dt=Now()
DataAdesso=DateToString(CDate(dt))
If bCalendarSetWeek Then
dtFine=DateAdd("ww", 1, CDate(day(dt) & "/" & month(dt)& "/" & year(dt)) )
Else
dtFine=DateAdd("M", 1, CDate(day(dt) & "/" & month(dt)& "/" & year(dt)) )
End if
DataFraUnaSettimana=DateToString(CDate(dtFine))

Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT urls.*, urls.uHits FROM urls WHERE (((urls.uHits)>=5));"

'Response.write rSQL
'Response.End()

Set oRs = DBRecordSet(oCn, rSQL)

CreateTopTable "Scroll_websiteHits",GetTranslation("HITS_EVENT_WE BSITE")

Response.Write "<script language=JavaScript1.2 >" & vbCRLF
Response.Write "vd_font='verdana,arial,sans-serif';" & vbCRLF
Response.Write "vd_fontSize='10px';" & vbCRLF
Response.Write "vd_fontSizeNS4='11px';" & vbCRLF
Response.Write "vd_fontWeight='none';" & vbCRLF
Response.Write "vd_fontColor='#000000';" & vbCRLF
Response.Write "vd_textDecoration='none';" & vbCRLF
Response.Write "vd_fontColorHover='#FFE564';// | won't work" & vbCRLF
Response.Write "vd_textDecorationHover='underline';// | in Netscape4" & vbCRLF
Response.Write "vd_bgColor='transparent';//set [='transparent'] for transparent" & vbCRLF
Response.Write "//vd_top=19000;// |" & vbCRLF
Response.Write "//vd_left=2000;// | defining" & vbCRLF
Response.Write "vd_width=490; // | the box" & vbCRLF
Response.Write "vd_height=60;// |" & vbCRLF
Response.Write "vd_paddingTop=5;" & vbCRLF
Response.Write "vd_paddingBottom=0;" & vbCRLF
Response.Write "vd_paddingLeft=0;" & vbCRLF
Response.Write "vd_paddingRight=0;" & vbCRLF
Response.Write "vd_timeout=3000;//1000 = 1 second" & vbCRLF
Response.Write "vd_slideSpeed=30;" & vbCRLF
Response.Write "vd_slideDirection=0;//0=down-up;1=up-down" & vbCRLF
Response.Write "vd_pauseOnMouseOver=true;" & vbCRLF
Response.Write "vd_content=[" & vbCRLF
If Not oRs.EOF Then
Response.Write "['','" & scrollInizioLS & "','']," & vbCRLF
While Not oRs.EOF

rSQL2 = "SELECT * FROM directory WHERE dURL = " & oRs("uURL")
Set oRs2 = DBRecordSet(oCn, rSQL2)

If Not oRs2.EOF Then
dim dirURL
dirURL = oRs2("dURL")
End If


Response.Write "['','<div align=""left""><a href="""&oRs("uURL")&""" target=""_blanck"" border=""0""><font color=""#FF0000"">"&GetTranslation("LANG_HITS")&":"&oRs("uHits") &"</font>
"&oRs("uURL")&"</a></div>','']," & vbCRLF

oRs.MoveNext
Wend

Else
Response.Write "['','" & scrollInizioNoeventsLS & "','']," & vbCRLF
End If
For i = 0 to ubound(scrollFineLS)
If scrollFineLS(i)="" Then
If i=0 Then
Response.Write "['','','']" & vbCRLF
End If
Exit For
End If
If i>0 Then
Response.Write "," & vbCRLF
End If
Response.Write "['','" & scrollFineLS(i) & "','']"
Next
Response.Write "];" & vbCRLF
Response.Write "vd_nS4=document.layers?1:0;vd_iE=document.all&&!w indow.innerWidth&&navigator.userAgent.indexOf(""MS IE"")!=-1?1:0;vd_oP=navigator.userAgent.indexOf(""Opera"") !=-1?1:0;vd_kN=navigator.userAgent.indexOf(""Konquero r"")!=-1?1:0;vd_count=vd_content.length;vd_s1=1;vd_cur=1; vd_d=vd_slideDirection?-1:1;vd_TIM=0;vd_fontSize2=vd_nS4&&navigator.platfo rm.toLowerCase().indexOf(""win"")!=-1?vd_fontSizeNS4:vd_fontSize;vd_canPause=0;functio n vd_getOS(a){return vd_iE?document.all[a].style:vd_nS4?document.layers['vd_container'].document.layers[a]:document.getElementById(a).style};function vd_start(){var o=vd_getOS('vd_'+vd_cur);if(!o)return;if(vd_iE||vd _oP){if(o.pixelTop==vd_paddingTop){vd_canPause=1;i f(vd_count>1)vd_TIM=setTimeout(""vd_canPause=0;vd_ slide()"",vd_timeout);return};o.pixelTop-=vd_d;if(vd_oP&&o.visibility.toLowerCase()!='visib le')o.visibility='visible';setTimeout(""vd_start() "",vd_slideSpeed);return};if(parseInt(o.top)==vd_p addingTop){vd_canPause=1;if(vd_count>1)vd_TIM=setT imeout(""vd_canPause=0;vd_slide()"",vd_timeout);re turn};o.top=parseInt(o.top)-vd_d;setTimeout(""vd_start()"",vd_slideSpeed)};fun ction vd_slide(){var o=vd_getOS('vd_'+vd_cur);var o2=vd_getOS('vd_'+(vd_cur<vd_count?vd_cur+1:1));if (!o||!o2)return;if(vd_iE||vd_oP){if(o.pixelTop==vd _paddingTop*2-vd_height*vd_d){if(vd_oP)o.visibility='hidden';o.p ixelTop=vd_height*vd_d;vd_cur=vd_cur<vd_count?vd_c ur+1:1;vd_canPause=1;vd_TIM=setTimeout(""vd_canPau se=0;vd_slide()"",vd_timeout);return};o.pixelTop-=vd_d;if(vd_oP&&o2.visibility.toLowerCase()!='visi ble')o2.visibility='visible';o2.pixelTop-=vd_d;setTimeout(""vd_slide()"",vd_slideSpeed);ret urn};if(parseInt(o.top)==vd_paddingTop*2-vd_height*vd_d){o.top=vd_height*vd_d;vd_cur=vd_cur <vd_count?vd_cur+1:1;vd_canPause=1;vd_TIM=setTimeo ut(""vd_canPause=0;vd_slide()"",vd_timeout);return };o.top=parseInt(o.top)-vd_d;o2.top=parseInt(o2.top)-vd_d;setTimeout(""vd_slide()"",vd_slideSpeed)};doc ument.write('<style>.vnewsticker{font-family:'+vd_font+';font-size:'+vd_fontSize2+';color:'+vd_fontColor+';text-decoration:'+vd_textDecoration+';font-weight:'+vd_fontWeight+'}.vnewsticker:hover{font-family:'+vd_font+';font-size:'+vd_fontSize2+';color:'+vd_fontColorHover+'; text-decoration:'+vd_textDecorationHover+'}</style>');vd_temp='<div '+(vd_nS4?""name"":""id"")+'=vd_container style=""position:relative;width:'+vd_width+'px;hei ght:'+vd_height+'px;background-color:'+vd_bgColor+';layer-background-color:'+vd_bgColor+';clip:rect(0,'+vd_width+','+vd _height+',0);overflow:hidden"">';for(vd_i=0;vd_i<v d_count;vd_i++)vd_temp+='<div '+(vd_nS4?""name"":""id"")+'=vd_'+(vd_i+1)+' style=""position:absolute;top:'+(vd_height*vd_d)+' px;left:'+vd_paddingLeft+'px;width:'+(vd_width-vd_paddingLeft*2)+'px;height:'+(vd_height-vd_paddingTop*2)+'px;clip:rect(0,'+(vd_width-vd_paddingLeft*2)+','+(vd_height-vd_paddingTop*2)+',0);overflow:hidden'+(vd_oP||vd_ kN?"";visibility:hidden"":"""")+'""><div class=vnewsticker'+(vd_pauseOnMouseOver?"" onmouseover=\'if(vd_canPause&&vd_count>1)clearTime out(vd_TIM)\' onmouseout=\'if(vd_canPause&&vd_count>1)vd_TIM=set Timeout(\""vd_canPause=0;vd_slide()\"",""+vd_timeo ut+"")\'"":"""")+'>'+vd_content[vd_i][1]+'</div></div>';vd_temp+='</div>';document.write(vd_temp);if(!vd_kN)setTimeout (""vd_start()"",1000);if(vd_nS4)onresize=function( ){location.reload()}" & vbCRLF
Response.Write "</script>" & vbCRLF
CreateBottomTable ""
oRs.Close
Set oRs = Nothing
oRs2.Close
Set oRs2 = Nothing
oCn.Close
Set oCn = Nothing

End Sub
[CODE]

[Roby_72]

Non si capisce nulla.

Roby

[fungo]

Sub DisplayTopHomeEventsWebsiteHits()
Dim oCn, oRs, oRs2, rSQL, rSQL2, iLine
Dim DataAdesso, DataFraUnaSettimana, dt, dtFine, i

Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT urls.*, urls.uHits FROM urls WHERE (((urls.uHits)>=5));"

'Response.write rSQL
'Response.End()

Set oRs = DBRecordSet(oCn, rSQL)

....

If Not oRs.EOF Then
Response.Write "['','" & scrollInizioLS & "','']," & vbCRLF
While Not oRs.EOF

rSQL2 = "SELECT * FROM directory WHERE dURL = " & oRs("uURL")
Set oRs2 = DBRecordSet(oCn, rSQL2)

If Not oRs2.EOF Then
dim dirURL
dirURL = oRs2("dURL")
End If


Response.Write "['','<div align=""left""><a href="""&oRs("uURL")&""" target=""_blanck"" border=""0""><font color=""#FF0000"">"&GetTranslation("LANG_HITS")&": "&oRs("uHits")&"</font>
"&dirURL&"</a></div>','']," & vbCRLF

oRs.MoveNext
Wend

Else
....
oRs.Close
Set oRs = Nothing
oRs2.Close
Set oRs2 = Nothing
oCn.Close
Set oCn = Nothing

End Sub


Ho eliminato parte del codice che non serve.

[optime]

e quale sarebbe l'errore>?