<% theID=request.querystring("id") ' if theid="" then sql="select * from foto order by id" ' else ' sql="select * from foto where id=" & theID ' end if set DB=Server.CreateObject("ADODB.Connection") db.Open "gb" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,DB,3,1 %> ':. Baldisserotto .:'
 
 

Pagina iniziale  
     
Albero genealogico Baldisserotto  
Vari formati files per stampanti  
     
Possibili origini del cognome Baldisserotto  
Storia dei cognomi in Italia  
Origine delle genti pedemontani Venete  
Archivi di Stato in Veneto  
     
Curiosita’ e notizie  
Serve aiuto per consultare alcuni archivi  
Invia informazioni  
Discendenze femminili  
Distribuzione geografica  
Vecchie foto  
Contatti
Guestbook
Ringraziamenti


 
 
 


       Vecchie foto <%= theid %>

  
 
<% for i = 2 to theid rs.movenext next response.write "

" & rs("comment") & "

" rs.movefirst%>
<% while not rs.eof tt = theid - rs("id") if tt=0 then response.write "" & rs("id") & " " else response.write "" & rs("id") & " " end if j=j+1 if j=25 then response.write "
" j=0 end if rs.movenext wend %>
 



Need to calculate? Try Calculator Online Free Calculator

Need to find IP whois? Visit this site What is My IP
 
<% rs.close set rs = nothing db.close set db = nothing %>