Ernia e Laparocele Ny side 1

Niente può sostituire la visita di un chirurgo! Consultate il medico!

Visione migliore con una risoluzione di 1024 X 768
Nome utente:
Password:
Salva password

Registrazione
Selezione lingua


 Hai dimenticato la Password?
Home  Forums  Responsabili  Libro Ospiti  FAQ  Regole  Registrazione  Contatti 
Menù principale 
Aggiungi a preferiti | Discussioni Attive (0) | I weblog | Discussioni Recenti | Dis.Senza Risposta | Sondaggi Attivi (0) | Calendario Eventi | Games | Cerca | Policy 
Menù utenti registrati 
Menù accessibile solo agli utenti registrati!  Registrazione
[ Membri Attivi: 0 | Membri Anonimi: 0 | Ospiti: 52 ]  [ Totale: 52 ]  [ Membro più recente: Lorenzo97 ] Scegli la Tonalità:
 Tutti i forum
 Free Time Cafè
 Computer e webdesign
 forum.asp
(anche qui: 1 ospite.)
   Tutti gli Utenti possono inserire nuove Discussioni in questo Forum
   Tutti gli Utenti possono rispondere alle Discussioni in questo Forum
Vista Arborescenza
 Vers.Stampabile  Annota questa Discussione Annota 
Autore Discussione Precedente Discussione Discussione Successiva  
Giumer

Membro anziano

Giumer

Giumer is offline

Membro Valutato:
Voti: 1
 
Top 25 Invii (11)
 Spedito - 22/04/2008 :  19:37:41  Link diretto a questa discussione  Mostra Profilo  Spedisci un messaggio ICQ a Giumer  Chiama con Skype Giumer  Spedisci un messaggio Yahoo! a Giumer Send Giumer a Private Message  Aggiungi Giumer alla Lista Amici  Aggiungi alla Lista Ignora
ciao doct allora stro provando ad inserire la query per Qui c'é nel file forum.asp , nel topic .asp e ok ! ma qui non risco a metterlo .
il codice e il seguente .

'####### chi c'è online ciricado.it #################

showem=1
If showem=1 Then
qs="FORUM_ID="&Forum_ID


strSql = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = 0 AND AU_lastpage = 'forum.asp' AND AU_QUERYSTRING LIKE '%"&qs&"%'"
set rs = my_conn.execute (strSql)
tng = rs("CNT")
rs.close
set rs = nothing

strSql = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID > 0 AND AU_lastpage = 'forum.asp' AND AU_QUERYSTRING LIKE '%"&qs&"%'"
set rs = my_conn.execute (strSql)
tnu = rs("CNT")
rs.close
set rs = nothing

strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, AU.AU_IP, AU.AU_LOGINTIME, AU.AU_LASTACTIVETIME, AU.AU_LASTPAGE, ME.M_ICQ, ME.M_YAHOO, ME.M_AIM, ME.M_LEVEL, AU.AU_QUERYSTRING, AU.AU_USER_AGENT " & _
"FROM " & strTablePrefix & "ACTIVE_USERS AU, " & strMemberTablePrefix & "MEMBERS ME " & _
"WHERE AU.MEMBER_ID = ME.MEMBER_ID AND AU_lastpage = 'forum.asp' AND AU_QUERYSTRING LIKE '%"&qs&"%'"
set trs = my_conn.execute (strSql)

Response.write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""")
Response.write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img src=""" & strImageURL & "icon_group.gif"" Border=""0"" width=""15"" height=""15"" alt=""I seguenti utenti stanno leggendo questo Forum""> Qui c'è: </font>" & vbNewLine & _
"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine

Do Until trs.EOF
nomeutente = trs("M_NAME")
if strUseExtendedProfile then
response.write "<a href=""pop_profile.asp?mode=display&id="& trs("MEMBER_ID") & """>"
else
response.write "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & trs("MEMBER_ID") & "')"">"
end if
'if trs("M_LEVEL") = 2 then 'If admin or mod, then lets hilight em.
' response.write "<b><font color=""" & strAUModColor & """>"
'elseif trs("M_LEVEL") = 3 then
' response.write "<b><font color=""" & strAUAdminColor & """>"
'end if
Response.write "<span class=""spnMessageText"">" & profileLink(ChkString(nomeutente,"display"),getmemberid(nomeutente)) & "</span>"
' response.write trs("M_NAME")
if trs("M_LEVEL") = 2 or trs("M_LEVEL") = 3 then
response.write "</font></b>"
end if
response.write "</a><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
x=x+1
If tng=0 Then
If x<(tnu-1) Then Response.Write " | "
If x=(tnu-1) Then Response.Write " e "
Else
If x<tnu Then Response.Write " | "
End If

trs.MoveNext
Loop

If tng>0 Then
If tnu=0 Then
Response.Write tng&" Guest"
If tng>1 Then Response.Write "s"
Response.write "."
Else
Response.Write " and "&tng&" Guest"
If tng>1 Then Response.Write "s"
Response.write "."
End If

End If
Response.write "</font>" & vbNewLine

trs.close
set trs = nothing
End If

'############### chi c'è online #####################



e io dovrei metterlo sotto circa a sto pezzo di codice .


Response.Write " </font></td>" & vbNewLine & _
" <form action=""" & Request.ServerVariables("SCRIPT_NAME") & "?" & chkString(Request.Querystring,"sqlstring") & """ method=""post"" name=""DaysFilter"">" & vbNewLine & _
" <td align=""right"" valign=""bottom"" width=""40%"">" & vbNewLine & _
" <select name=""Days"" onchange=""javascript:setDays();"">" & vbNewLine & _
" <option value=""0""" & CheckSelected(ndays,0) & ">" & fLang("strLangForum00020") & "</option>" & vbNewLine & _
" <option value=""-1""" & CheckSelected(ndays,-1) & ">" & fLang("strLangForum00030") & "</option>" & vbNewLine & _
" <option value=""1""" & CheckSelected(ndays,1) & ">" & fLang("strLangForum00040") & "</option>" & vbNewLine & _
" <option value=""2""" & CheckSelected(ndays,2) & ">" & fLang("strLangForum00050") & "</option>" & vbNewLine & _
" <option value=""5""" & CheckSelected(ndays,5) & ">" & fLang("strLangForum00060") & "</option>" & vbNewLine & _
" <option value=""7""" & CheckSelected(ndays,7) & ">" & fLang("strLangForum00070") & "</option>" & vbNewLine & _
" <option value=""14""" & CheckSelected(ndays,14) & ">" & fLang("strLangForum00080") & "</option>" & vbNewLine & _
" <option value=""30""" & CheckSelected(ndays,30) & ">" & fLang("strLangForum00090") & "</option>" & vbNewLine & _
" <option value=""60""" & CheckSelected(ndays,60) & ">" & fLang("strLangForum00100") & "</option>" & vbNewLine & _
" <option value=""120""" & CheckSelected(ndays,120) & ">" & fLang("strLangForum00110") & "</option>" & vbNewLine & _
" <option value=""365""" & CheckSelected(ndays,365) & ">" & fLang("strLangForum00120") & "</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" <input type=""hidden"" name=""Cookie"" value=""1"">" & vbNewLine & _
" </td></form>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""60%""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>" & vbNewLine


ma o lo vedo spostato a destra e non sotto o addiritura va a finere in fondo alla pagina !
firma di Giumer 
=======================
http://www.Giumer.it/forum

=======================
 Paese: Italy  ~  Invii: 850  ~  Utente dal: 20/10/2006  ~  UltimaVisita: 05/04/2013 -> Moderatore 
Losko

Membro iniziale

Losko is offline

 


  1   Spedito - 22/04/2008 :  19:58:21  Link diretto a questa replica  Mostra Profilo  Visita l'homepage di Losko Send Losko a Private Message  Aggiungi Losko alla Lista Amici  Aggiungi alla Lista Ignora
 » Soggetto: Re: forum.asp
A me invece o lo visualizza a sinistra della scritta del titolo del topic (nella struttura ad albero) oppure a destra. Non riesco nemmeno io farlo andare sotto.
firma di Losko 
Graziano Mariella - Fondatore di NetworkLine.org
*************************************************************
Sito: www.networkline.org - Community Tecnica sulle Tecnologie Microsoft
Forum: www.networkline.org/forum
Weblog: http://www.networkline.org/blog
*************************************************************
 Paese: Italy  ~  Invii: 21  ~  Utente dal: 29/03/2008  ~  UltimaVisita: 10/06/2008 -> Moderatore  strLangGo_Top_Page00010
  Discussione Precedente Discussione Discussione Successiva  
 Vers.Stampabile  Annota questa Discussione Annota 
Vai a:
Ernia e Laparocele © Herniasurgery.it Vai ad inizio pagina...
 Image Forums 2001 Questa pagina è stata generata in 0,23 secondi.

 
   Time edit/delete mod from superdeejay.net		 Torino Ernia Powered By: Snitz Forums 2000 Version 3.4.07