alert querystring

[kyllopardiun 0]

bom estou iniciando a aprender asp e gostaria de ajuda

pois quero escrever o valor da querystring em um alert do javascript tentei com:

 

primeiro tentei usando mais java script:

<%
Dim k,y
if k =10 then
Response.Write "<script type=""text/javascript"">"
Response.Write "<!--"
Response.Write "document.location=("google.com");"
Response.Write "-->"
Response.Write "</script>"
else
y=k+1
Response.Write "<script type=""text/javascript"">"
Response.Write "<!--"
Response.Write "alert (' & (request.querystring("k")) & ');"
Response.Write "document.location=("index.asp?k= & y &");
Response.Write "-->"
Response.Write "</script>"
end if
%>

e apareceu o erro:

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/kyllopardiun/a/b.asp, line 6

 

Response.Write "document.location=("google.com");"

------------------------------------^

 

de forma que resolvi fazer o redirecionamento pelo response.redirect já do asp

 

<%
Dim k,y
l = request.querystring("k")
if k =10 then
Response.Redirect("http://www.google.com")

else
y=l+1
Response.Write "<script type=""text/javascript"">"
Response.Write "<!--"
Response.Write "window.alert (" & l & ");"
Response.Write "-->"
Response.Write "</script>"
response.redirect "http://www12.asphost4free.com/kyllopardiun/a/?k="&y
end if
%>

 

com este segundo o script funciona um pouco mais porém ele já redireciona para o próximo valor antes de mostrar

o alert e não para ao chegar no 10 sem contar que no firefox já redireciona de início para o 21 e o firefox mostra este erro:

 

"Cirkulær omdirrigeringsløkke

Firefox har opdaget at serveren henviser forespørgelsen for denne adresse på en måde så den aldrig vil blive færdig

Browseren har afbrudt en forbindelse, fordi webstedet omdirrigerer forespørgsler til sig selv på en måde, der forhindrer det i nogensinde at blive færdig."

 

algo do tipo o site esta carregando um script em um loop infinito por isso o firefox o bloqueou

 

gostaria se possivel saber qual o erro nos dois e o que deveria ter feito para que ficassem funcionais

[Mário Monteiro 179]

dentro das aspas ou voce usa aspa simples ou duas duplas senao da este erro

[kyllopardiun 0]

mesmo alterando isto no primeiro a parte do google.com

é aceita porém a parte inferior não:

 

Microsoft VBScript compilation error '800a0409'

 

Unterminated string constant

 

/kyllopardiun/a/b.asp, line 16

 

Response.Write "document.location=('index.asp?k= & y &');

---------------------------------------------------------^

 

sem contar que continua sem aparecer as janelas de alert na página...

e o firefox indo para o k=21

[Mário Monteiro 179]

mas continua errado

 

onde termina a string tem que por aspas tambem

[kyllopardiun 0]

Nestes códigos que acabei de postar como estão não aparece erro ao entrar na página,

porém não carrega o alert e isso é um erro (pois esta no código) e a variável k também não consegue ir se alterando conforme quero (de um em um)

ela pula 21 dependendo do browser e mesmo assim nem vai para a página do google conforme esta no código

links para vocês verem como carrega os dois códigos respectivamente:

http://www12.asphost4free.com/kyllopardiun/a/b.asp?k=21

 

http://www12.asphost4free.com/kyllopardiun/a/index.asp?k=21

 

 

 

e procurei reescrever seguindo a dica da variável da sessão:

<%
Dim k,y
Session("l")=request.querystring("k")
if Session("l") = 10 then
Response.Redirect "http://www.google.com"

else
y=Session("l")+1
Response.Write "<script type=""text/javascript"">"
Response.Write "<!--"
response.write "<script>alert('& Session("l") &');</script>"
Response.Write "-->"
Response.Write "</script>"
response.redirect "http://www12.asphost4free.com/kyllopardiun/a/ss.asp?k="&y
end if
%>

e apareceu:

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/kyllopardiun/a/ss.asp, line 11

 

response.write "<script>alert('& Session("l") &');</script>"

------------------------------------------^

 

 

desculpe me por ter respondido no lugar errado \O/

[xanburzum 169]

bom estou iniciando a aprender asp e gostaria de ajuda

pois quero escrever o valor da querystring em um alert do javascript tentei com:

 

primeiro tentei usando mais java script

você pode armazenar o conteúdo de sua querystring em uma variavel session e depois invocar sua pagina asp em um pop-up e exibí-la.

[Mário Monteiro 179]

qual a linha que esta dando erro e qual o erro atual?

[kyllopardiun 0]

Nestes códigos que acabei de postar como estão não aparece erro ao entrar na página,

porém não carrega o alert e isso é um erro (pois esta no código) e a variável k também não consegue ir se alterando conforme quero (de um em um)

ela pula 21 dependendo do browser e mesmo assim nem vai para a página do google conforme esta no código

links para vocês verem como carrega os dois códigos respectivamente:

http://www12.asphost4free.com/kyllopardiun/a/b.asp?k=21

 

http://www12.asphost4free.com/kyllopardiun/a/index.asp?k=21

 

 

 

e procurei reescrever seguindo a dica da variável da sessão:

<%
Dim k,y
Session("l")=request.querystring("k")
if Session("l") = 10 then
Response.Redirect "http://www.google.com"

else
y=Session("l")+1
Response.Write "<script type=""text/javascript"">"
Response.Write "<!--"
response.write "<script>alert('& Session("l") &');</script>"
Response.Write "-->"
Response.Write "</script>"
response.redirect "http://www12.asphost4free.com/kyllopardiun/a/ss.asp?k="&y
end if
%>

e apareceu:

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/kyllopardiun/a/ss.asp, line 11

 

response.write "<script>alert('& Session("l") &');</script>"

------------------------------------------^

[desisto 0]

tira isso de antes do <script>

Response.Write "-->"

 

troca ' por ""

 

veja se roda

[kyllopardiun 0]

continuo sem conseguir LoL

 

<%
Dim k,y,o,l
l = (request.querystring("k"))
o = 1
if k =10 then
Response.Write "<script>"
Response.Write "document.location=(""google.com"");"
Response.Write "</script>"
else
y=k+o
Response.Write "<script>"
Response.Write "alert ("" & l & "");"
Response.Write "document.location=(""b.asp?k= & y &"");"
Response.Write "</script>"
end if
%>

ele faz o loop com javascript mas é como se não houvesse asp \o/

primeiro ele mostra no alert & l &

e depois ele redireciona para a página b.asp?k= & y & e fica em um loop infinito que se não renomear o arquivo para dar o erro 404

não se consegue fechar .

 

e o outro vai para a página do google independente da váriavel k:

 

<%
Dim k,y,l,o,p
l = request.querystring("k")
o = 10
p = 1
if CDBL(l) <= CDBL(o) then
y=CDBL(l) + CDBL(p)
Response.Redirect("http://www.google.com")
else
Response.Write "<script>"
Response.write "alert("" & l & "");" 
Response.Write "</script>"
Response.redirect "index.asp?k="&y
end if
%>

nota estou usando CDBL() agora porque achei que o asp estava considerando os números como string .

[hargon 64]

Altera essa linha..

Response.Write "document.location=(""b.asp?k= & y &"");"

Para

Response.Write "document.location=(""b.asp?k=" & y &""");"

Poste o resultado.

[kyllopardiun 0]

hargon obrigado você que mostrou uma das soluções lol

 

consegui com este código (repare que tirei uma das aspas da parte alert() )

 

<%
Dim k,y,l,o
l = (request.querystring("k"))
o = 10 
if CDBL(l) > CDBL(o) then
Response.Write "<script>"
Response.Write "document.location=('http://google.com');"
Response.Write "</script>"
else
y=CDBL(l) + 1
Response.Write "<script>"
Response.Write "alert (" & l & ");"
Response.Write "document.location=(""b.asp?k=" & y &""");"
Response.Write "</script>"
end if
%>

porém como disse estou aprendendo e queria saber qual o erro com este código:

 

<%
Dim k,y,l,o,p
l = request.querystring("k")
o = 10
p = 1
if l <= o then
y=CDBL(l) + 1
Response.Redirect("http://www.google.com")
else
Response.Write "<script>"
Response.write "alert("" & l & "");" 
Response.Write "</script>"
Response.redirect "index.asp?k="&y
end if
%>

erro: a página não carrega retira a váriavel que estava na querystring e retorna os seguintes erros no browser:

 

Firefox:Cirkulær omdirrigeringsløkke

Firefox har opdaget at serveren henviser forespørgelsen for denne adresse på en måde så den aldrig vil blive færdig.

Browseren har afbrudt en forbindelse, fordi webstedet omdirrigerer forespørgsler til sig selv på en måde, der forhindrer det i nogensinde at blive færdig.

 

Safari:Safari kan ikke åbne siden.

Der skete for mange omdirigeringer, mens “http://localhost/asp/index.asp?k=” blev forsøgt åbnet. Det kan ske, hvis du åbner en side, der er omdirigeret til at åbne en anden side, som er omdirigeret til at åbne den originale side.

[hargon 64]

O alert não mostra nada?

 

Seria interessante você verifica se L é numérico antes de entrar no IF e se não for, ai recebe algum valor. Por exemplo:

l = request.querystring("k")

If Not isNumeric(l) Then
	l = 0
End If

Outro detalhe, se L for <= 10, sempre vai redirecionar para o Google. Se ele for maior que 10, vai ficar redirecionando para index.asp "eternamente".

 

Creio que o que você quer fazer, deveria ser o contrário... ex. If (l >= o) Then

[kyllopardiun 0]

usei:

 

<%
Dim k,y,l,o,p
l = request.querystring("k")
If Not isNumeric(l) Then
	l = 0
End If
o = 10
p = 1
if l >= o then
Response.Redirect"http://www.google.com"
else
y=CDBL(l) + 1
Response.Write "<script>"
Response.write "alert(" & l & ");" 
Response.Write "</script>"
Response.redirect "index.asp?k="&y
end if
%>

e independente do valor de k foi redirecionado para a página do google