Jump to content

  2. →
  3. →

Photo

Pq Num Aparece Nada? Nem O Erro?

Started By ::: Mr.Crowley :::, 23/07/2004, 18:50

  • Faça o login para participar
5 replies to this topic

#1 ::: Mr.Crowley :::

::: Mr.Crowley :::

    12 Horas

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Localidade:Balneário Camboriú - SC

Posted 23/07/2004, 18:50

http://freehost13.we...es/vp/admin.asp

segue o código abaixo
<%@ Language=VBScript %>
<style type="text/css">
<!--
body {
background-color: #000000
background: url('back.jpg')
font-family: Verdana
font-size: 11px
color: white
text-decoration: none
}
a.link {
text-decoration: none
color: white
}
a.hover {
text-decoration: none
color: white
}
a.active {
text-decoration: none
color: white
}
a.visited {
text-decoration: none
color: white
}
-->
</style>
<% option explicit

set conexao = server.createobject("adodb.connection")
conexao.open "driver={Microsoft Access Driver (*.mdb)}; dbq="&server.mappath("../mdbsites/mdbvp.mdb")&""

n = now()
dia = day(n)
mes = month(n)
ano = year(n)

select case mes
case 1 or 01
mes = "Janeiro"
case 2 or 02
mes = "Fevereiro"
case 3 or 03
mes = "Março"
case 4 or 04
mes = "Abril"
case 5 or 05
mes = "Maio"
case 6 or 06
mes = "Junho"
case 7 or 07
mes = "Julho"
case 8 or 08
mes = "Agosto"
case 9 or 09
mes = "Setembro"
case 10
mes = "Outubro"
case 11
mes = "Novembro"
case 12
mes = "Dezembro"
end select

select case dia
case 1
dia = 01
case 2
dia = 02
case 3
dia = 03
case 4
dia = 04
case 5
dia = 05
case 6
dia = 06
case 7
dia = 07
case 8
dia = 08
case 9
dia = 09
end select

select case "s"
s = request.querystring("s")

case "login" %>
<form method=post action="?s=logar">
<input type=text name=user style="border: 1px solid #000000;font-size: 11px">
<input type=password name=pass style="border: 1px solid #000000;font-size: 11px">
<input type=submit name="submit" value=" LOGAR " style="border: 3px solid #000000;font-size: 11px;font-family: verdana">
</form>
<%
case "logar"

user = request.form("user")
pass = request.form("pass")

sql = "select * from usuarios user='"&user&"' and pass='"&pass&"'"
set rs = conexao.execute(sql)

if not rs.eof then
response.cookies("www.vpclan.br.nu")("user") = rs("user")
response.cookies("www.vpclan.br.nu")("pass") = rs("pass")
response.cookies("www.vpclan.br.nu")("nivel") = rs("nivel")
response.cookies("www.vpclan.br.nu").expires = mes & " " & dia & ", " & cint(ano+1)
session("user") = rs("user")
session("nivel") = rs("nivel")
response.redirect("?s=index")
else
response.redirect("?s=login")
end if

case "logout"

session.abandon
response.cookies("www.vpclan.br.nu").expires = 0
response.redirect("?s=login")

case "index"
if session("user") = "" then
response.redirect("?s=login")
else %>
<table cellpadding=0 cellspacing=0 border=0 style="border: 1px solid #000000">
<tr>
<td><a href="?s=addnot">Adicionar Notícia</a></td>
<td><a href="?s=addmem">Adicionar Membro</a></td>
<td><a href="?s=addcon">Adicionar Confronto</a></td>
</tr>
<tr><td colspan=3><a href="?s=logout">Logout</a></td></tr>
</table>
<% end if
case "addnot"
if session("user") = "" then
response.redirect("?s=login")
else
%>
<form method=post action="?s=addnot2">
<table cellpadding=0 cellspacing=0 border=0>
<tr>
<td>Título: </td>
<td><input type=text name=titulo style="font-family: verdana;font-size: 11px"></td>
</tr>
<tr>
<td>Mensagem: </td>
<td><textarea name=mensagem style="font-family: verdana;font-size: 11px">Escreva seu texto Aqui!</textarea></td>
</tr>
<tr><td colspan=2><input type=submit value=" ADICIONAR " style="font-family: verdana;font-size: 11px"></td></tr>
</table>
</form>
<% end if
case "addnot2"

if session("user") = "" then
response.redirect("?s=login")
else
nick = session("user")
data = mes & " " & dia & ", " & ano
titulo = request.form("titulo")
msg = replace(request.form("mensagem"), "'", "''")
mensagem = replace(msg, ":)", "<img scr=imgs/alegre.gif>")
mensagem = replace(msg, ":(", "<img scr=imgs/triste.gif>")
mensagem = replace(msg, ":]", "<img scr=imgs/alegre.gif>")
mensagem = replace(msg, ":[", "<img scr=imgs/triste.gif>")
mensagem = replace(msg, ":}", "<img scr=imgs/alegre.gif>")
mensagem = replace(msg, ":{", "<img scr=imgs/triste.gif>")
mensagem = replace(msg, "x)", "<img scr=imgs/alegre.gif>")
mensagem = replace(msg, "x(", "<img scr=imgs/triste.gif>")
mensagem = replace(msg, "x]", "<img scr=imgs/alegre.gif>")
mensagem = replace(msg, "x[", "<img scr=imgs/triste.gif>")
mensagem = replace(msg, "x}", "<img scr=imgs/alegre.gif>")
mensagem = replace(msg, "x{", "<img scr=imgs/triste.gif>")

sql = "insert into noticias (nick,data,titulo,mensagem) values ('"&nick&"','"&data&"','"&titulo&"','"&mensagem&"')"
conn.execute(sql)

response.redirect("?s=index")
end if

case "addmem"

if session("user") = "" then
response.redirect("?s=login")
else
if session("nivel") = "poster" then
response.write "<font size=7 color=red face=verdana>Você Não Tem Acesso A Este Recurso</font>"
else
%>
<form method=post action="?s=addmem2">
<table cellpadding=0 cellspacing=0 border=0>
<tr>
<td>Nick: </td>
<td><input type=text name=nick style="font-family: verdana;font-size: 11px"></td>
</tr>
<td>ICQ: </td>
<td><input type=text name=icq style="font-family: verdana;font-size: 11px"></td>
</tr>
<td>MSN: </td>
<td><input type=text name=msn style="font-family: verdana;font-size: 11px"></td>
</tr>
<td>E-mail: </td>
<td><input type=text name=nick style="font-family: verdana;font-size: 11px"></td>
</tr>
<tr><td colspan=2><input type=submit value=" ADICIONAR " style="font-family: verdana;font-size: 11px"></td></tr>
</table></form>
<% end if
end if

case "addmem2"
if session("user") = "" then
response.redirect("?s=login")
else
nick = request.form("nick")
icq = request.form("icq")
msn = request.form("msn")
email = request.form("email")

sql = "insert into membros (nick,icq,msn,email) value ('"&nick&"','"&icq&"','"&msn&"','"&email&"')
conexao.execute(sql)

response.redirect("?s=index")

end if

case "addcon"

if session("user") = "" then
response.redirect("?s=login")
else
if session("nivel") = "poster" then
response.write "<font size=7 color=red face=verdana>Você Não Tem Acesso A Este Recurso</font>"
else
%>
<form method=post action="?s=addcon2">
<table cellpadding=0 cellspacing=0 border=0>
<tr>
<td>Adversário: </td>
<td><input type=text name=adversario style="font-family: verdana;font-size: 11px"> *apenas sigla</td>
</tr>
<tr>
<td>Frags Clan: </td>
<td><input type=text name=fragsclan style="font-family: verdana;font-size: 11px"></td>
</tr>
<tr>
<td>Frags Adversário: </td>
<td><input type=text name=fragsadversario style="font-family: verdana;font-size: 11px"></td>
</tr>
<tr>
<td>Screen: </td>
<td><input type=text name=screen style="font-family: verdana;font-size: 11px"></td>
</tr>
<tr>
<td>Demo: </td>
<td><input type=text name=demo style="font-family: verdana;font-size: 11px"></td>
</tr>
<tr><td colspan=2><input type=submit value=" ADICIONAR " style="font-family: verdana;font-size: 11px"></td></tr>
</table></form>
<% end if
end if

case "addcon2"

if session("user") = "" then
response.redirect("?s=login")
else

adversario = request.form("adversario")
fragsclan = request.form("fragsclan")
fragsadversario = request.form("fragsadversario")
screen = request.form("screen")
demo = request.form("demo")

sql = "insert into confrontos (adversario,fragsclan,fragsadversario,screen,demo) values ('"&adversario&"','"&fragsclan&"','"&fragsadversario&"','"&screen&"','"&demo&"')"
conexao.execute(sql)

response.redirect("?s=index")

end if

case else 

if request.cookies("www.vpclan.br.nu") = true then

request.cookies("www.vpclan.br.nu")
user = request.cookies("www.vpclan.br.nu")("user")
pass = request.cookies("www.vpclan.br.nu")("pass")
nivel = request.cookies("www.vpclan.br.nu")("nivel")
session("user") = user
session("nivel") = nivel
response.redirect("?s=index")

else

response.redirect("?s=login")

end if

end select %>

Edição feita por: ::: Mr.Crowley :::, 23/07/2004, 18:56.

#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 23/07/2004, 19:06

O erro mostrado

Microsoft VBScript compilation error '800a0400'

Expected statement

/mrasp/sites/vp/admin.asp, line 30

option explicit
^

Vá nas opções avançadas de seu browser e desmarque a opção "mostrar mensagens de erros http amigáveis".

E sempre coloque o "Option Explicit" abaixo da declaração da Linguagem.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#3 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 23/07/2004, 19:06

Tpw, para ver qual o erro q ta dando ao invés dakela msg de erro 500, clica com o botao dir no icone do IE na sua area de trabalho -> Propriedades -> Avançadas -> desmarca a opção "Mostrar msgs de erro http amigáveis", clica em Aplicar e abre de novo a sua página.

O erro q esta dando eh esse:

Microsoft VBScript compilation error '800a0400'

Expected statement

/mrasp/sites/vp/admin.asp, line 30

option explicit
^
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#4 ::: Mr.Crowley :::

::: Mr.Crowley :::

    12 Horas

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Localidade:Balneário Camboriú - SC

Posted 23/07/2004, 20:26

vlw gente hehe...agora funfo =PP

#5 ::: Mr.Crowley :::

::: Mr.Crowley :::

    12 Horas

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Localidade:Balneário Camboriú - SC

Posted 23/07/2004, 20:57

agora ta dando esse erro loco

Microsoft VBScript compilation error '800a03ea'

Syntax error

/mrasp/sites/vp/admin.asp, line 90

case "login"
^

#6 ::: Mr.Crowley :::

::: Mr.Crowley :::

    12 Horas

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Localidade:Balneário Camboriú - SC

Posted 23/07/2004, 21:06

arrumei =)
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq