Faltan...
-
<%
Function ConvertiTitoloInNomeScript(Titolo)
Risultato = Titolo
Risultato = LCase(Risultato)
Risultato = Replace(Risultato, " ", "-")
Risultato = Replace(Risultato, "à", "a")
Risultato = Replace(Risultato, "ç", "c")
Risultato = Replace(Risultato, "é", "e")
Risultato = Replace(Risultato, "è", "e")
Risultato = Replace(Risultato, "ì", "i")
Risultato = Replace(Risultato, "ò", "o")
Risultato = Replace(Risultato, "ù", "u")
Risultato = Replace(Risultato, "â", "a")
Risultato = Replace(Risultato, "ê", "e")
Risultato = Replace(Risultato, "î", "e")
Risultato = Replace(Risultato, "ô", "i")
Risultato = Replace(Risultato, "û", "o")
Risultato = Replace(Risultato, "Â", "a")
Risultato = Replace(Risultato, "Ê", "e")
Risultato = Replace(Risultato, "Î", "e")
Risultato = Replace(Risultato, "Ô", "i")
Risultato = Replace(Risultato, "Û", "o")
Risultato = Replace(Risultato, " ", "-")
Risultato = Replace(Risultato, "á", "a")
Risultato = Replace(Risultato, "é", "e")
Risultato = Replace(Risultato, "í", "i")
Risultato = Replace(Risultato, "ó", "o")
Risultato = Replace(Risultato, "ú", "u")
Risultato = Replace(Risultato, "ñ", "n")
Risultato = Replace(Risultato, "Ñ", "N")
Risultato = Replace(Risultato, "Á", "a")
Risultato = Replace(Risultato, "É", "e")
Risultato = Replace(Risultato, "Í", "e")
Risultato = Replace(Risultato, "Ó", "i")
Risultato = Replace(Risultato, "Ú", "u")
Risultato = Replace(Risultato, "?", "")
Risultato = Replace(Risultato, "¿", "")
Risultato = Replace(Risultato, "(", "")
Risultato = Replace(Risultato, "(", "")
Risultato = Replace(Risultato, "“", "")
Risultato = Replace(Risultato, "”", "")
Risultato = Replace(Risultato, "«", "")
Risultato = Replace(Risultato, "»", "")
For i=0 to 44
Risultato = Replace (Risultato,chr(i),"")
next
For i=46 to 47
Risultato = Replace (Risultato,chr(i),"")
next
For i=58 to 64
Risultato = Replace (Risultato,chr(i),"")
next
For i=91 to 94
Risultato = Replace (Risultato,chr(i),"")
next
For i=123 to 127
Risultato = Replace (Risultato,chr(i),"")
next
Risultato = Replace (Risultato,chr(96),"")
ConvertiTitoloInNomeScript = Risultato
End Function
strConnection = "Provider=SQLOLEDB;Data Source=db.abc.srv.vocento.in;Initial Catalog=elecciones-20n;User ID=bd_user;Password=octubre2009xp"
strConnectionunilogin = "Provider=SQLOLEDB;Data Source=db.abc.srv.vocento.in;Initial Catalog=Global;User ID=bd_user;Password=octubre2009xp"
set prs3=Server.CreateObject("ADODB.Recordset")
set prsu3=Server.CreateObject("ADODB.Recordset")
Set poConn3 = Server.CreateObject("ADODB.Connection")
poConn3.Open strConnection
sql33 ="select * from TB_Elecciones20n_Candidato"
prs3.Open SQL33, poConn3
Do while not prs3.EOF
%>
-
.asp" class="<%=ConvertiTitoloInNomeScript(prs3.Fields("nombre"))%>" title="<%=prs3.Fields("nombre")%> - Candidato del <%=prs3.Fields("partido")%>">
Candidatos
.gif" alt="<%=prs3.Fields("partido")%>" />
<%=prs3.Fields("nombre")%>
Candidato por <%=prs3.Fields("partido")%><%=prs3.Fields("media")%> valoración de nuestros lectores
<%
prs3.MoveNext
loop
poConn3.close
%>