Ta Dando Um Erro, Mas Nao Consigo Achá-lo

AlexCT · Março 16, 2005

Dá este erro, mas não consigo achá-lo de jeito maneira....Preciso de um HELP

Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/alexct/ativ_online2005/controle_geral.asp, line 1974

<%
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("ativ_online.mdb")
Conn.Open DSNtest
at1s = request.form("at1s")
at1e = request.form("at1e")
at1m = request.form("at1m")
at1g = request.form("at1g")
at2s = request.form("at2s")
at2e = request.form("at2e")
at2m = request.form("at2m")
at2g = request.form("at2g")
at3s = request.form("at3s")
at3e = request.form("at3e")
at3m = request.form("at3m")
at3g = request.form("at3g")
at4s = request.form("at4s")
at4e = request.form("at4e")
at4m = request.form("at4m")
at4g = request.form("at4g")
at5s = request.form("at5s")
at5e = request.form("at5e")
at5m = request.form("at5m")
at5g = request.form("at5g")
at6s = request.form("at6s")
at6e = request.form("at6e")
at6m = request.form("at6m")
at6g = request.form("at6g")
ar1s = request.form("ar1s")
ar1e = request.form("ar1e")
ar1m = request.form("ar1m")
ar1g = request.form("ar1g")
ar2s = request.form("ar2s")
ar2e = request.form("ar2e")
ar2m = request.form("ar2m")
ar2g = request.form("ar2g")
ar3s = request.form("ar3s")
ar3e = request.form("ar3e")
ar3m = request.form("ar3m")
ar3g = request.form("ar3g")
maiss = request.form("maiss")
maiss0 = request.form("maiss0")
IF maiss0<>"" THEN
maiss = maiss * 1
maiss0 = maiss0 * 1
maiss = maiss+maiss0
END IF
IF request.form("maiss0")="0" THEN maiss = 0
maise = request.form("maise")
maise0 = request.form("maise0")
IF maise0<>"" THEN
maise = maise * 1
maise0 = maise0 * 1
maise = maise+maise0
END IF
IF request.form("maise0")="0" THEN maise = 0
maism = request.form("maism")
maism0 = request.form("maism0")
IF maism0<>"" THEN
maism = maism * 1
maism0 = maism0 * 1
maism = maism+maism0
END IF
IF request.form("maism0")="0" THEN maism = 0
maisg = request.form("maisg")
maisg0 = request.form("maisg0")
IF maisg0<>"" THEN
maisg = maisg * 1
maisg0 = maisg0 * 1
maisg = maisg+maisg0
END IF
IF request.form("maisg0")="0" THEN maisg = 0
menoss = request.form("menoss")
menoss0 = request.form("menoss0")
IF menoss0<>"" THEN
menoss = menoss*1
menoss0 = menoss0*1
menoss = menoss+menoss0
END IF
IF request.form("menoss0")="0" THEN menoss = 0
menose = request.form("menose")
menose0 = request.form("menose0")
IF menose0<>"" THEN
menose = menose*1
menose0 = menose0*1
menose = menose+menose0
END IF
IF request.form("menose0")="0" THEN menose = 0
menosm = request.form("menosm")
menosm0 = request.form("menosm0")
IF menosm0<>"" THEN
menosm = menosm*1
menosm0 = menosm0*1
menosm = menosm+menosm0
END IF
IF request.form("menosm0")="0" THEN menosm = 0
menosg = request.form("menosg")
menosg0 = request.form("menosg0")
IF menosg0<>"" THEN
menosg = menosg*1
menosg0 = menosg0*1
menosg = menosg+menosg0
END IF
IF request.form("menosg0")="0" THEN menosg = 0
atualizar = Request.form("atualizar")
comentario = Request.QueryString("comentario")
idcomentario = Request.QueryString("idcomentario")
incluicomentario = Request.QueryString("incluicomentario")
delcomentario = Request.QueryString("delcomentario")
alterarcomentario = Request.QueryString("alterarcomentario")
alterarcomentario2 = Request.QueryString("alterarcomentario2")
alterar = Request.QueryString("alterar")
indice = Request.QueryString("indice")
iniciar = Request.QueryString("iniciar")
atividade2 = Request.QueryString("atividade2")
atividade3 = Request.QueryString("atividade3")
atividade4 = Request.QueryString("atividade4")
atividade5 = Request.QueryString("atividade5")
atividade6 = Request.QueryString("atividade6")
relampago1 = Request.QueryString("relampago1")
relampago2 = Request.QueryString("relampago2")
relampago3 = Request.QueryString("relampago3")
finalizar = Request.QueryString("finalizar")
mensagem = Request.QueryString("mensagem")
enviado = Request.QueryString("enviado")
erro = Request.QueryString("erro")
'=========== Função Alterar Planilha - CASO SELECIONADO OK ===========
IF at1s<>"" THEN hora1s = Fun_Hora
IF at1e<>"" THEN hora1e = Fun_Hora
IF at1m<>"" THEN hora1m = Fun_Hora
IF at1g<>"" THEN hora1g = Fun_Hora
IF at2s<>"" THEN hora2s = Fun_Hora
IF at2e<>"" THEN hora2e = Fun_Hora
IF at2m<>"" THEN hora2m = Fun_Hora
IF at2g<>"" THEN hora2g = Fun_Hora
IF at3s<>"" THEN hora3s = Fun_Hora
IF at3e<>"" THEN hora3e = Fun_Hora
IF at3m<>"" THEN hora3m = Fun_Hora
IF at3g<>"" THEN hora3g = Fun_Hora
IF at4s<>"" THEN hora4s = Fun_Hora
IF at4e<>"" THEN hora4e = Fun_Hora
IF at4m<>"" THEN hora4m = Fun_Hora
IF at4g<>"" THEN hora4g = Fun_Hora
IF at5s<>"" THEN hora5s = Fun_Hora
IF at5e<>"" THEN hora5e = Fun_Hora
IF at5m<>"" THEN hora5m = Fun_Hora
IF at4g<>"" THEN hora4g = Fun_Hora
IF at6s<>"" THEN hora6s = Fun_Hora
IF at6e<>"" THEN hora6e = Fun_Hora
IF at6m<>"" THEN hora6m = Fun_Hora
IF at6g<>"" THEN hora6g = Fun_Hora
IF ar1s<>"" THEN horar1s = Fun_Hora
IF ar1e<>"" THEN horar1e = Fun_Hora
IF ar1m<>"" THEN horar1m = Fun_Hora
IF ar1g<>"" THEN horar1g = Fun_Hora
IF ar2s<>"" THEN horar2s = Fun_Hora
IF ar2e<>"" THEN horar2e = Fun_Hora
IF ar2m<>"" THEN horar2m = Fun_Hora
IF ar2g<>"" THEN horar2g = Fun_Hora
IF ar3s<>"" THEN horar3s = Fun_Hora
IF ar3e<>"" THEN horar3e = Fun_Hora
IF ar3m<>"" THEN horar3m = Fun_Hora
IF ar3g<>"" THEN horar3g = Fun_Hora
'===========================================
'============ Função Alterar Planilha - CASO NÃO SELECIONADO OK ===========
IF at1s="" THEN hora1s = ""
IF at1e="" THEN hora1e = ""
IF at1m="" THEN hora1m = ""
IF at1g="" THEN hora1g = ""
IF at2s="" THEN hora2s = ""
IF at2e="" THEN hora2e = ""
IF at2m="" THEN hora2m = ""
IF at2g="" THEN hora2g = ""
IF at3s="" THEN hora3s = ""
IF at3e="" THEN hora3e = ""
IF at3m="" THEN hora3m = ""
IF at3g="" THEN hora3g = ""
IF at4s="" THEN hora4s = ""
IF at4e="" THEN hora4e = ""
IF at4m="" THEN hora4m = ""
IF at4g="" THEN hora4g = ""
IF at5s="" THEN hora5s = ""
IF at5e="" THEN hora5e = ""
IF at5m="" THEN hora5m = ""
IF at5g="" THEN hora5g = ""
IF at6s="" THEN hora6s = ""
IF at6e="" THEN hora6e = ""
IF at6m="" THEN hora6m = ""
IF at6g="" THEN hora6g = ""
IF ar1s="" THEN horar1s = ""
IF ar1e="" THEN horar1e = ""
IF ar1m="" THEN horar1m = ""
IF ar1g="" THEN horar1g = ""
IF ar2s="" THEN horar2s = ""
IF ar2e="" THEN horar2e = ""
IF ar2m="" THEN horar2m = ""
IF ar2g="" THEN horar2g = ""
IF ar3s="" THEN horar3s = ""
IF ar3e="" THEN horar3e = ""
IF ar3m="" THEN horar3m = ""
IF ar3g="" THEN horar3g = ""
'===========================================
'######### Função ALTERA ATIVIDADE ##########
IF atualizar = "true" THEN
SQL = "UPDATE atividade SET at1s='"&at1s&"', at1e='"&at1e&"', at1m='"&at1m&"', at1g='"&at1g&"', at2s='"&at2s&"', at2e='"&at2e&"', at2m='"&at2m&"', at3s='"&at3s&"', at3e='"&at3e&"', at3m='"&at3m&"', at3g='"&at3g&"', at4s='"&at4s&"', at4e='"&at4e&"', at4m='"&at4m&"', at4g='"&at4g&"', at5s='"&at5s&"', at5e='"&at5e&"', at5m='"&at5m&"', at5g='"&at5g&"', at6s='"&at6s&"', at6e='"&at6e&"', at6m='"&at6m&"', at6g='"&at6g&"', ar1s='"&ar1s&"', ar1e='"&ar1e&"', ar1m='"&ar1m&"', ar1g='"&ar1g&"', ar2s='"&ar2s&"', ar2e='"&ar2e&"', ar2m='"&ar2m&"', ar2g='"&ar2g&"', ar3s='"&ar2s&"', ar3e='"&ar2e&"', ar3m='"&ar2m&"', ar3g='"&ar2g&"', maiss='"&maiss&"', maise='"&maise&"', maism='"&maism&"', maisg='"&maisg&"', menoss='"&menoss&"', menose='"&menose&"', menosm='"&menosm&"', menosg='"&menosg&"'"
SQL = SQL & ", hora1s='"&hora1s&"', hora1e='"&hora1e&"', hora1m='"&hora1m&"', hora1g='"&hora1g&"', hora2s='"&hora2s&"', hora2e='"&hora2e&"', hora2m='"&hora2m&"', hora2g='"&hora2g&"', hora3s='"&hora3s&"', hora3e='"&hora3e&"', hora3m='"&hora3m&"', hora3g='"&hora3g&"', hora4s='"&hora4s&"', hora4e='"&hora4e&"', hora4m='"&hora4m&"', hora4g='"&hora4g&"', hora5s='"&hora5s&"', hora5e='"&hora5e&"', hora5m='"&hora5m&"', hora5g='"&hora5g&"', hora6s='"&hora6s&"', hora6e='"&hora6e&"', hora6m='"&hora6m&"', hora6g='"&hora6g&"', horar1s='"&horar1s&"', horar1e='"&horar1e&"', horar1m='"&horar1m&"', horar1g='"&horar1g&"', horar2s='"&horar2s&"', horar2e='"&horar2e&"', horar2m='"&horar2m&"', horar2g='"&horar2g&"', horar3s='"&horar3s&"', horar3e='"&horar3e&"', horar3m='"&horar3m&"', horar3g='"&horar3g&"'"
SQL = SQL & " WHERE id=1"
Set RS = Conn.Execute(SQL)
Set RS = Nothing
mensagem = "10"
END IF
'############################################
'######### Função ALTERA CONTROLE ##########
IF alterar = "true" THEN
SELECT CASE indice
CASE 1
SQL3 = "UPDATE DISTINCTROW geral SET iniciar='"&iniciar&"'"
CASE 2
SQL3 = "UPDATE DISTINCTROW geral SET atividade2='"&atividade2&"'"
CASE 3
SQL3 = "UPDATE DISTINCTROW geral SET atividade3='"&atividade3&"'"
CASE 4
SQL3 = "UPDATE DISTINCTROW geral SET atividade4='"&atividade4&"'"
CASE 5
SQL3 = "UPDATE DISTINCTROW geral SET atividade5='"&atividade5&"'"
CASE 6
SQL3 = "UPDATE DISTINCTROW geral SET atividade6='"&atividade6&"'"
CASE 7
SQL3 = "UPDATE DISTINCTROW geral SET relampago1='"&relampago1&"'"
CASE 8
SQL3 = "UPDATE DISTINCTROW geral SET relampago2='"&relampago2&"'"
CASE 9
SQL3 = "UPDATE DISTINCTROW geral SET relampago3='"&relampago3&"'"
CASE 10
SQL3 = "UPDATE DISTINCTROW geral SET finalizar='"&finalizar&"'"
Case 100
SQL3 = "UPDATE DISTINCTROW geral SET iniciar='"&iniciar&"', atividade2='"&atividade2&"', atividade3='"&atividade3&"', atividade4='"&atividade4&"', atividade5='"&atividade5&"', atividade6='"&atividade6&"', relampago1='"&relampago1&"', relampago2='"&relampago2&"', relampago3='"&relampago3&"', finalizar='"&finalizar&"'"
END SELECT
SQL3 = SQL3 & " WHERE id=1"
Set RS3 = Conn.Execute(SQL3)
Set RS3 = Nothing
mensagem = "1"
END IF
'############################################
'######### Função Inclui Comentário ########
IF incluicomentario = "true" THEN
hora = Fun_Hora
SQL2 = "INSERT INTO boletim (hora,comentario) VALUES ('"&hora&"','"&comentario&"')"
Set RS2 = Conn.Execute(SQL2)
Set RS2 = Nothing
mensagem = "2"
END IF
'############################################
'######### Função Alterar Comentário ########
IF alterarcomentario2 = "true" THEN
SQL4 = "UPDATE boletim SET comentario='"&comentario&"' WHERE idcomentario="&idcomentario&""
Set RS4 = Conn.Execute(SQL4)
Set RS4 = Nothing
mensagem = "6"
END IF
'############################################

'######### Função Deletar Comentário ########
IF delcomentario = "true" THEN
SQL3 = "DELETE FROM boletim WHERE idcomentario="&(idcomentario)&""
Set RS3 = Conn.Execute(SQL3)
Set RS3 = Nothing
mensagem = "3"
END IF
'######################################################
'########## Cadastrar IMAGEM #########################
IF enviado="true" THEN
arquivo = Request.QueryString("arquivo")
SQL2 = "UPDATE DISTINCTROW boletim SET imagem='"&arquivo&"' WHERE idcomentario="&idcomentario&""
Set RS2 = Conn.Execute(SQL2)
Set RS2 = Nothing
mensagem = "4"
END IF
IF erro="true" THEN mensagem = "5"
'######################################################
'-------- MOSTRA MENSAGEM DA FUNÇÃO EXECUTADA --------------
SELECT CASE mensagem
CASE 10
RESPONSE.WRITE "Controle da Atividade Aletarado com Sucesso!"
CASE 1
RESPONSE.WRITE "Relatório da Atividade Aletarado com Sucesso!"
CASE 2
RESPONSE.WRITE "Comentário Incluido com Sucesso"
CASE 3
RESPONSE.WRITE "Comentário Deletado com Sucesso"
CASE 4
RESPONSE.WRITE "Imagem enviada com sucesso!"
CASE 5
RESPONSE.WRITE "Erro ao enviar imagem"
CASE 6
RESPONSE.WRITE "Comentário Alterado com Sucesso"
END SELECT
'-----------------------------------------------------
Response.Write "<BR><BR>"
SQL1 = "SELECT * FROM atividade"
Set RL = Conn.Execute(SQL1)
SQL3 = "SELECT * FROM geral"
Set RL3 = Conn.Execute(SQL3)
%>
</b></font></b></div>
<table width="48%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFCC00">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td height="15"> </td>
<td width="19%" align="center" valign="middle"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">inicio</font></td>
<td width="14%" align="center" valign="middle"> </td>
<td width="18%" align="center" valign="middle"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <b>fim
</b></font><font size="1" color="#009999" face="Arial, Helvetica, sans-serif"> 
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="49%" height="15" bgcolor="#FFCC00"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Iniciar
Atividade</b></font></td>
<td width="19%" rowspan="2" align="center" valign="middle" bgcolor="#CC9900"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">14:30h</font></b></td>
<td width="14%" rowspan="2" align="center" valign="middle" bgcolor="#CC9900"><font size="1" color="#009999" face="Arial, Helvetica, sans-serif">
<%
IF RL3("iniciar") = "true" THEN
Response.Write "<a href=""controle_geral.asp?iniciar=false&indice=1&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?iniciar=true&indice=1&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("atividade2") = "true" THEN
Response.Write "<a href=""controle_geral.asp?atividade2=false&indice=2&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?atividade2=true&indice=2&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("atividade3") = "true" THEN
Response.Write "<a href=""controle_geral.asp?atividade3=false&indice=3&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?atividade3=true&indice=3&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("atividade4") = "true" THEN
Response.Write "<a href=""controle_geral.asp?atividade4=false&indice=4&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?atividade4=true&indice=4&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("atividade5") = "true" THEN
Response.Write "<a href=""controle_geral.asp?atividade5=false&indice=5&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?atividade5=true&indice=5&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("atividade6") = "true" THEN
Response.Write "<a href=""controle_geral.asp?atividade6=false&indice=6&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?atividade6=true&indice=6&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("relampago1") = "true" THEN
Response.Write "<a href=""controle_geral.asp?relampago1=false&indice=7&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?relampago1=true&indice=7&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("relampago2") = "true" THEN
Response.Write "<a href=""controle_geral.asp?relampago2=false&indice=8&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?relampago2=true&indice=8&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("relampago3") = "true" THEN
Response.Write "<a href=""controle_geral.asp?relampago3=false&indice=9&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?relampago3=true&indice=9&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL3("finalizar") = "true" THEN
Response.Write "<a href=""controle_geral.asp?finalizar=false&indice=10&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?finalizar=true&indice=10&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF (RL3("iniciar") = "true" AND RL3("finalizar") = "true") THEN
Response.Write "<a href=""controle_geral.asp?iniciar=false&atividade2=false&atividade3=false&atividade4=false&atividade5=false&atividade6=false&relampago1=false&relampago2=false&relampago3=false&finalizar=false&indice=100&alterar=true""><img src=""adm_band.gif"" width=""15"" height=""16"" border=""0""></a>"
ELSE
Response.Write "<a href=""controle_geral.asp?iniciar=true&atividade2=true&atividade3=true&atividade4=true&atividade5=true&atividade6=true&relampago1=true&relampago2=true&relampago3=true&finalizar=true&indice=100&alterar=true""><img src=""adm_band2.gif"" width=""15"" height=""16"" border=""0""></a>"
END IF
%>
HTML
<%
IF RL("at1s")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%IF RL("at1s")<>"" THEN Response.Write ("<BR>"&RL("at1s")&"pts - " & RL("hora1s")&"h")%>
HTML
<%
IF RL("at2s")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%IF RL("at1e")<>"" THEN Response.Write ("<BR>"&RL("at1e")&"pts - " & RL("hora1e")&"h")%>
HTML
<%
IF RL("at1m")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%IF RL("at1m")<>"" THEN Response.Write ("<BR>"&RL("at1m")&"pts - " & RL("hora1m")&"h")%>
HTML
<%
IF RL("at1g")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>HTML
<%IF RL("at1g")<>"" THEN Response.Write ("<BR>"&RL("at1g")&"pts - " & RL("hora1g")&"h")%>
HTML
<select name="at2s" id="at2s" size="1" class="form">
<%IF RL("at2s")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at2s")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at2s")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at2s")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%IF RL("at2s")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
HTML
<%IF RL("at2s")<>"" THEN Response.Write ("<br>"&RL("at2s")&"pts - " & RL("hora2s")&"h")%>
HTML
<select name="at2e" id="at2e" size="1" class="form">
<%IF RL("at2e")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at2e")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at2e")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at2e")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%IF RL("at2e")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
HTML
<%IF RL("at2e")<>"" THEN Response.Write ("<br>"&RL("at2e")&"pts - " & RL("hora2e")&"h")%>
HTML
<select name="at2m" id="at2m" size="1" class="form">
<%IF RL("at2m")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at2m")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at2m")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at2m")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%IF RL("at2m")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
HTML
<%IF RL("at2m")<>"" THEN Response.Write ("<br>"&RL("at2m")&"pts - " & RL("hora2m")&"h")%>
HTML
<select name="at2g" id="at2g" size="1" class="form">
<%IF RL("at2g")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at2g")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at2g")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at2g")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at2g")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
HTML
<%IF RL("at2g")<>"" THEN Response.Write ("<br>"&RL("at2g")&"pts - " & RL("hora2g")&"h")%>
HTML
<select name="at3s" id="at3s" size="1" class="form">
<%IF RL("at3s")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at3s")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at3s")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at3s")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at3s")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
SQL4 = "SELECT * FROM jogomemoria WHERE id=1"
Set RS4 = Conn.Execute(SQL4)
IF RL("at3s")<>"" THEN
Response.Write ("<br>"&RL("at3s")&"pts - " & RL("hora3s")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("salmao") & ")")
END IF
%>
HTML
<select name="at3e" id="at3e" size="1" class="form">
<%IF RL("at3e")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at3e")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at3e")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at3e")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at3e")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
IF RL("at3e")<>"" THEN
Response.Write ("<br>"&RL("at3e")&"pts - " & RL("hora3e")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("espadarte") & ")")
END IF
%>
HTML
<select name="at3m" id="at3m" size="1" class="form">
<%IF RL("at3m")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at3m")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at3m")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at3m")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at3m")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
IF RL("at3m")<>"" THEN
Response.Write ("<br>"&RL("at3m")&"pts - " & RL("hora3m")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("mero") & ")")
END IF
Set RS4 = Nothing
%>
HTML
<select name="at3g" id="at3g" size="1" class="form">
<%IF RL("at3g")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at3g")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at3g")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at3g")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at3g")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
IF RL("at3g")<>"" THEN
Response.Write ("<br>"&RL("at3g")&"pts - " & RL("hora3g")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("garoupa") & ")")
END IF
Set RS4 = Nothing
%>
HTML
<select name="at4s" id="at4s" size="1" class="form">
<%IF RL("at4s")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at4s")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at4s")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at4s")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at4s")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
SQL4 = "SELECT * FROM jogomemoria WHERE id=1"
Set RS4 = Conn.Execute(SQL4)
IF RL("at4s")<>"" THEN
Response.Write ("<br>"&RL("at4s")&"pts - " & RL("hora4s")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("salmao") & ")")
END IF
%>
HTML
<select name="at4e" id="at4e&quot

Editado Março 16, 2005 por dark0

AlexCT · Março 16, 2005

CONTINUAÇÃO

<%
IF RL("at5g")<>"" THEN
Response.Write ("<br>"&RL("at5g")&"pts - " & RL("hora5g")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("garoupa") & ")")
END IF
Set RS4 = Nothing
%>
HTML
<select name="at6s" id="at6s" size="1" class="form">
<%IF RL("at6s")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at6s")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at6s")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at6s")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at6s")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
SQL4 = "SELECT * FROM jogomemoria WHERE id=1"
Set RS4 = Conn.Execute(SQL4)
IF RL("at6s")<>"" THEN
Response.Write ("<br>"&RL("at6s")&"pts - " & RL("hora6s")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("salmao") & ")")
END IF
%>
HTML
<select name="at6e" id="at6e" size="1" class="form">
<%IF RL("at6e")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at6e")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at6e")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at6e")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at6e")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
IF RL("at6e")<>"" THEN
Response.Write ("<br>"&RL("at6e")&"pts - " & RL("hora6e")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("espadarte") & ")")
END IF
%>
HTML
<select name="at6m" id="at6m" size="1" class="form">
<%IF RL("at6m")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at6m")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at6m")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at6m")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at6m")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
IF RL("at6m")<>"" THEN
Response.Write ("<br>"&RL("at6m")&"pts - " & RL("hora6m")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("mero") & ")")
END IF
Set RS4 = Nothing
%>
HTML
<select name="at6g" id="at6g" size="1" class="form">
<%IF RL("at6g")="" THEN%>
<option value="" selected>- - - - -</option>
<% ELSE%>
<option value="">- - - - -</option>
<%END IF%>
<%IF RL("at6g")="100" THEN%>
<option value="100" selected>1º</option>
<% ELSE%>
<option value="100">1º</option>
<%END IF%>
<%IF RL("at6g")="75" THEN%>
<option value="75" selected>2º</option>
<% ELSE%>
<option value="75">2º</option>
<%END IF%>
<%IF RL("at6g")="50" THEN%>
<option value="50" selected>3º</option>
<% ELSE%>
<option value="50">3º</option>
<%END IF%>
<%IF RL("at6g")="25" THEN%>
<option value="25" selected>4º</option>
<% ELSE%>
<option value="25">4º</option>
<%END IF%>
</select>
<%
IF RL("at6g")<>"" THEN
Response.Write ("<br>"&RL("at6g")&"pts - " & RL("hora6g")&"h")
Response.Write ("<BR>(tempo médio:" & RS4("garoupa") & ")")
END IF
Set RS4 = Nothing
%>
HTML
<%
IF RL("ar1s")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar1e")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar1m")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar1g")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar2s")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar2e")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>

HTML
<%
IF RL("ar2m")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar2g")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
IF RL("ar3s")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar3e")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar3m")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
IF RL("ar3g")<>"" THEN
cked="checked"
ELSE
cked=""
END IF
%>
HTML
<%
SQL2 = "SELECT * FROM boletim ORDER BY idcomentario ASC"
Set RL2 = Conn.Execute(SQL2)
DO WHILE NOT RL2.EOF 'paginacao And Count < RS.PageSize
if i mod 2<>0 then
cor = "#FFFFFF"
else
cor = "#EEEEEE"
end if
%>
HTML
<%
IF RL2("imagem")<>"" THEN
%>
<img src="imagem/<%=RL2("imagem")%>" border="1">
<font face="Verdana, Arial, Helvetica, sans-serif">
<font size="1">
<%
Response.Write "<BR>"
END IF
%>

HTML
<%
i = i+1
RL2.MoveNext
LOOP
%>

HTML
<%
IF alterarcomentario="true" THEN
SQL5 = "SELECT * FROM boletim WHERE idcomentario="&idcomentario&""
Set RL5 = Conn.Execute(SQL5)
%>
HTML
<%
Set RL5 = Nothing
END IF
%>
HTML
<%
SQL = "SELECT DISTINCT idcomentario FROM boletim ORDER BY idcomentario ASC"
Set RS= Conn.Execute(SQL)
DO WHILE NOT RS.EOF
%>

HTML
<%
RS.MOVENEXT
LOOP
Set RS = Nothing >>>>>>>>>>>> 1974 <<<<<<<<<<<<
%>

HTML
</body>
</html>

Editado Março 16, 2005 por dark0

dark0 · Março 16, 2005

Cara..

Seu codigo é grande demais.. chegou a estourar o layout do forum, hehe

Bom.. como é grande mesmo.. não tem muito o que fazer..

você vai ter que olhar se todos os IFS abertos estão com seus END IFS certos

Pois, provavemente.. alguma instrução foi aberta mas não foi fechada..

RAFBRASIL · Março 16, 2005

Putz! Com centenas de ifs assim fica difícil mesmo achar onde esté o erro. Eu costuo estruturar os scriipts recuando 2 espaços cada condição e retornando a cada Else ou End. Dai fica consiiderávelmente mais fácil de achar o erro!

cyberalexxx · Março 16, 2005

Tenta digitar o script fazendo indentação, tem editores que fazem isso automaticamante, facilita muito na hora de verificas esses tipos de erro.

AlexCT · Março 16, 2005

Esta imanso o script

mas se for ver o site nem ta tanto.. é que tudo é adaptavel... sabe.. cheia de detalhes;.. e ainda tirei oas tag do hTML

mesmoa ssim so o asp ficou grande

esta dificil mesmo de achar o erro...

não entendi o que é indentação

alais tb faço esta parte do recuo, mesmo assim ta dando o erro.

mas se eu passar a pagina pra agem ajudaria, ou so na raça mesmo?

valeu!

ViniciusJau · Março 16, 2005

nossa... q bagunça huauha

tenta jogar ele no dreanweaver por exemplo. .dai ele fica vermelho verde.. dai pelas cores você acha o erro...

AlexCT · Março 16, 2005

mas eu uso o dreamweaver, e nada

ViniciusJau · Abril 4, 2005

aconteu a mesma coisa comigo bicho....

sei lá o que que é....

porque realmente o dreamweaver não ficou vermelho

Entrar

Ta Dando Um Erro, Mas Nao Consigo Achá-lo

Pergunta

AlexCT

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

AlexCT

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

RAFBRASIL

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

AlexCT

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

AlexCT

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades