09/05/2005, 04:39
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 151
Antigüedad: 19 años Puntos: 1 | |
| uf, te pego el codigo, q me lio un poco:
<html>
<head>
<title>Probando el case</title>
<script language="vbscript" 'RUNAT="SERVER"' type="text/JavaScript">
<!--
var marxa;
var text="¡¡¡Bienvenidos a la Web de Keramia!!!";
var pos=0;
var opc2="<%=idioma %>";
alert(opc2);
switch (opc2){
case 'esp' :
text="¡¡¡Bienvenidos a la Web de Keramia!!!";
break;
case 'ing' :
text="¡¡¡wellcome to the web of Keramia!!!";
break;
case 'fra' :
text="¡¡¡Gabaxos a saco en Keramia!!!";
break;
case 'ale' :
text="¡¡¡En keramia nos engañan como a chinos!!!";
break;
};
function Enmarxa(){
alert("Como va?");
pos++;
window.status=text.substring(0,pos);
if(pos>=text.length+20)
{
pos=0;
}
marxa=setTimeout("Enmarxa()",150);
}
function Enmarxa2(){
pos++;
text2=' ';
for(i=1;i<text.length-pos;i++)
text2+=' ';
text2+=text.substring(0,pos);
window.status=text2;
if(pos>=text.length+20)
{
pos=0;
}
marxa=setTimeout("Enmarxa2()",150);
}
//-->
</SCRIPT>
</head>
<body>
<%
Dim idioma
Dim x
Dim y
Dim z
Dim t
idioma= request.QueryString("textito")
response.Write(idioma)
select case idioma
case "esp"
x= "ayuda"
y= "despiece"
z= "ver"
t= "añadir"
response.Write(x+"<br>"+y+"<br>"+z+"<br>"+t)
case "ing"
x= "help"
y= "quartering"
z= "to see"
t= "add"
response.Write(x+"<br>"+y+"<br>"+z+"<br>"+t)
case "fra"
x= "aide"
y= "despiezue"
z= "vua"
t= "añadue"
response.Write(x+"<br>"+y+"<br>"+z+"<br>"+t)
case "ale"
x= "suben"
y= "empujen"
z= "strujen"
t= "bajen"
response.Write(x+"<br>"+y+"<br>"+z+"<br>"+t)
case else
response.Write("na de na chiquet")
end select
%>
</body>
</html>
Jejeje, esq...ni idea. Man exo hacer practicas de asp sin haber tocao asp nunca, y....aprender yo solo es algo jodido. |