[Resolvido] Error '800a03ea'

Flavio Rezende · Fevereiro 24, 2011

Esta aparecendo pra mim o seguinte erro

Microsoft VBScript compilation error '800a03ea'

Syntax error

/sistema/cronograma_listar_3.asp, line 113

Function GetDaysInMonth(iMonth, iYear)

^

Meu código é:

 <% 
Dim rsBuscaAcesso
Dim strBuscaAcesso
Set rsBuscaAcesso = Server.CreateObject("ADODB.Recordset")
strBuscaAcesso = "SELECT * FROM napse_funcionarios ORDER by nome"
rsBuscaAcesso.open strBuscaAcesso, conexao 

  'Loop para pegar os todos os dados da tabela Acessos no banco de dados
   c = 0
   do while not rsBuscaAcesso.eof
%>


<!-- ************* inicio conteudo ************* -->   

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" >                                   


                                           <tr>
                                           <td>
										<%
										funcionario = rsBuscaAcesso("nome")
										if funcionario = "" then
										response.write("<table align=""center""><tr><td align=""center""><b><font class=""texto10_laranja"">Nenhum funcionário selecionado</font></b></td></tr><table>")
										else
										Set tabela = conexao.Execute("SELECT * FROM napse_cronograma_2  WHERE desenvolvimento='" & funcionario & "' ")
                                               i = 1
                                               If not tabela.BOF Then %>                                      
                                           	<font class="texto10_laranja" style="padding-left:10px"><b><%=tabela("desenvolvimento")%></b></font>

                                               <br>

										<%
											else
											response.Write("")
											end if
                                           %>  
                                           </td>                                              
                                           </tr>
                                           <tr>
                                           	<td>

                                           <%

										mes = MonthName(Month(dDate))



										Set tabela = conexao.Execute("SELECT * FROM napse_cronograma_2  WHERE desenvolvimento='" & rsBuscaAcesso("nome") & "' ORDER BY dt_final ASC ")
                                               if tabela.eof then
											response.write("<b><font class=""texto10_laranja"">Nenhum cronograma gerado para este funcionário</font></b>")

											else

											Function GetDaysInMonth(iMonth, iYear)
												Dim dTemp
												dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
												GetDaysInMonth = Day(dTemp)
											End Function


											Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
												Dim dTemp
												dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
												GetWeekdayMonthStartsOn = WeekDay(dTemp)
											End Function


											Function SubtractOneMonth(dDate)
												SubtractOneMonth = DateAdd("m", -1, dDate)
											End Function


											Function AddOneMonth(dDate)
												AddOneMonth = DateAdd("m", 1, dDate)
											End Function



											Dim dDate     ' Date we're displaying calendar for
											Dim iDIM      ' Days In Month
											Dim iDOW      ' Day Of Week that month starts on
											Dim iCurrent  ' Variable we use to hold current day of month as we write table
											Dim iPosition ' Variable we use to hold current position in table


											If IsDate(Request.QueryString("date")) Then
												dDate = CDate(Request.QueryString("date"))
											Else
												If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then
													dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))
												Else
													dDate = Date()
													If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then
														Response.Write "The date you picked was not a valid date.  The calendar was set to today's date.<BR><BR>"
													End If
												End If
											End If

											iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
											iDOW = GetWeekdayMonthStartsOn(dDate)

											%>

                                       <TABLE border="0" cellspacing="0" cellpadding="0" align="left" style="border:1px solid #808080;">
                                           <TR>
                                               <TD width="210" align="center" bgcolor="#f47509"  >
                                               	<table width="100%" cellpadding="0" cellspacing="0" border="0" bordercolor="#808080">
                                                   <tr>
                                                   	<td align="center"><font face="verdana" size="-2" color="#FFFFFF"><b>PROJETOS</b></font></td>
                                                  </tr>
                                                  </table>
                                               </TD>
                                            	<TD>
                                          			<TABLE border="0" bordercolor="#808080" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" >
                                               <TR>
                                                   <TD height="25" colspan="31" align="center" bgcolor="#f47509"  >
                                                       <TABLE width="100%" border="0" cellspacing="0" cellpadding="0" >
                                                           <TR>
                                                               <%
                                                                   mes = MonthName(Month(dDate))

                                                                   if mes = "January" then
                                                                       mes="Janeiro"
                                                                   else if mes = "February" then
                                                                       mes="Fevereiro"	
                                                                   else if mes = "March" then
                                                                       mes="Março"		
                                                                   else if mes = "April" then
                                                                       mes="Abril"		
                                                                   else if mes = "May" then
                                                                       mes="Maio"																																																																																																												
                                                                   else if mes = "June" then
                                                                       mes="Junho"
                                                                   else if mes = "July" then
                                                                       mes="Julho"
                                                                   else if mes = "August" then
                                                                       mes="Agosto"
                                                                   else if mes = "September" then
                                                                       mes="Setembro"
                                                                   else if mes = "October" then
                                                                       mes="Outubro"
                                                                   else if mes = "November" then
                                                                       mes="Novembro"
                                                                   else if mes = "December" then
                                                                       mes="Dezembro"																																																																																																
                                                                   else
                                                                       mes=""
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if															
                                                               %>
                                                               <TD ALIGN="center"><font class="texto11_menu_branco"><b><%= mes& " - " & Year(dDate) %></b></font></TD>
                                                           </TR>
                                                       </TABLE>
                                                   </TD>
                                               </TR>
                                               <%
                                               iCurrent = 1
                                               iPosition = iDOW
                                               Do While iCurrent <= iDIM
												if iPosition = 7 or iPosition = 14 or iPosition = 21 or iPosition = 28 or iPosition = 35  then
													 Response.Write vbTab & vbTab & "<TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#d6d4d4""><font class=""texto_data_crono1"">" & iCurrent & "</font></TD>" 
											    else
												if iPosition = 8 or iPosition = 15 or iPosition = 22 or iPosition = 29 or iPosition = 36 then
													Response.Write vbTab & vbTab & "<TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#d6d4d4""><font class=""texto_data_crono1"">" & iCurrent & "</font></TD>" 
											    else													
                                                   If iCurrent = Day(dDate) Then
                                                       Response.Write vbTab & vbTab & "<TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#808080"" ><font class=""texto_data_crono3"">" & iCurrent & "</font></TD>" 
                                                   Else
                                                       Response.Write vbTab & vbTab & "<TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#f47509""><font class=""texto_data_crono3"">" & iCurrent & "</font></TD>" 
                                                   END IF
												END IF
												end if

                                                   iCurrent = iCurrent + 1
                                                   iPosition = iPosition + 1
                                               Loop

                                               %>
                                           </TABLE>
                                           </TD>
                                           <TD>
                                           <TABLE BORDER=0 bordercolor="#808080" CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>

                                               <TR>

                                                   <TD height="25" colspan="31" align="center" bgcolor="#f47509">
                                                       <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
                                                           <TR>
                                                               <%
                                                                   mes = Month(dDate) + 1

                                                                   mes2 = (MonthName(mes))


                                                                   if mes2 = "January" then
                                                                       mes2="Janeiro"
                                                                   else if mes2 = "February" then
                                                                       mes2="Fevereiro"	
                                                                   else if mes2 = "March" then
                                                                       mes2="Março"		
                                                                   else if mes2 = "April" then
                                                                       mes2="Abril"		
                                                                   else if mes2 = "May" then
                                                                       mes2="Maio"																																																																																																												
                                                                   else if mes2 = "June" then
                                                                       mes2="Junho"
                                                                   else if mes2 = "July" then
                                                                       mes2="Julho"
                                                                   else if mes2 = "August" then
                                                                       mes2="Agosto"
                                                                   else if mes2 = "September" then
                                                                       mes2="Setembro"
                                                                   else if mes2 = "October" then
                                                                       mes2="Outubro"
                                                                   else if mes2 = "November" then
                                                                       mes2="Novembro"
                                                                   else if mes2 = "December" then
                                                                       mes2="Dezembro"																																																																																																
                                                                   else
                                                                       mes2=""
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if
                                                                   end if															
                                                               %>
                                                               <TD ALIGN="center"><FONT class="texto11_menu_branco"><B><%= mes2& " - " & Year(dDate) %></B></FONT></TD>
                                                           </TR>
                                                       </TABLE>
                                                   </TD>
                                               </TR>

                                           <%
                                           iCurrent = 1
                                           iPosition = iDOW
                                           dias2 = GetDaysInMonth(mes, Year(dDate))									
                                           Do While iCurrent <= dias2
												if iPosition = 4 or iPosition = 11 or iPosition = 18 or iPosition = 25 or iPosition = 32 or iPosition = 39  then
													 Response.Write vbTab & vbTab & "<center><TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#d6d4d4""><font class=""texto_data_crono1"">" & iCurrent & "</font></TD>" 
											    else
												if iPosition = 5 or iPosition = 12 or iPosition = 19 or iPosition = 26 or iPosition = 33 or iPosition = 40 then
													Response.Write vbTab & vbTab & "<center><TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#d6d4d4""><font class=""texto_data_crono1"">" & iCurrent & "</font></TD>" 
											    else												
												If iCurrent = Day(dDate) Then
													Response.Write vbTab & vbTab & "<center><TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#808080"" ><font class=""texto_data_crono3"">" & iCurrent & "</font></TD>" 
												Else
													Response.Write vbTab & vbTab & "<center><TD width=""15"" height=""15"" align=""center"" valign=""middle"" BGCOLOR=""#f47509""><font class=""texto_data_crono3"">" & iCurrent & "</font></TD>" 
												END IF
												END IF
												END IF

                                               iCurrent = iCurrent + 1
                                               iPosition = iPosition + 1
                                           Loop



                                           %>
                                           			</TABLE>
                                           		</TD>        
                                           	</TR>
                                           </TABLE>
                                           </td>
                                           </tr>



                                           <tr>
                                           <td>
                                           <TABLE width="0" border="1" bordercolor="#808080"  cellpadding="0" cellspacing="0" > 
                                               <%
                                               Set tbl = conexao.Execute("SELECT *,date_format(dt_inicio, '%d/%m/%Y'),date_format(dt_analise, '%d/%m/%Y'),date_format(dt_final, '%d/%m/%Y') FROM napse_cronograma_2 WHERE desenvolvimento='" & funcionario & "' AND MONTH(dt_final)>=MONTH(NOW()) ORDER BY cp ASC")
                                               do while not tbl.EOF
                                               %>
                                               <tr>
                                                   <td width="208" height="100%">
                                                   	<table width="208"  cellpadding="0" cellspacing="0">
                                                       	<tr>
                                                           	<td width="208" height="100%">
                                                   <font class="texto9_cinza" style="padding-left:4px"><%=tbl("cliente")%> - <%=tbl("servico")%> - <%=tbl("responsavel")%></font>
                                                  				</TD>        
                                           				</TR>
                                          				</TABLE>
                                                   </td>
                                               <%

                                               iCurrent = 1
                                               iPosition = iDOW
                                               mes_cor = Month(dDate)	
                                               dia_inicio = DatePart("d", tbl("dt_inicio"))
                                               mes_inicio = DatePart("m", tbl("dt_inicio"))
                                               dia_analise = DatePart("d", tbl("dt_analise"))
                                               mes_analise = DatePart("m", tbl("dt_analise"))	
                                               dia_final = DatePart("d", tbl("dt_final"))
                                               mes_final = DatePart("m", tbl("dt_final"))																																		

                                               Do While iCurrent <= iDIM
                                                   If iCurrent = dia_inicio and mes_cor = mes_inicio Then
                                                       Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#00CC33""><font class=""texto_verde_crono"">"& iCurrent &"</font></TD>" 
                                                   Else
                                                       If iCurrent = dia_analise and mes_cor = mes_analise Then
                                                           Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#FFFF00""><font class=""texto_amarelo_crono"">"& iCurrent &"</font></TD>" 
                                                       Else
                                                           If iCurrent = dia_final and mes_cor = mes_final Then
                                                               Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#E74629""><font class=""texto_vermelho_crono"">"& iCurrent &"</font></TD>" 					
                                                           Else
                                                              ' If (iCurrent > dia_inicio and mes_cor=mes_inicio) and (iCurrent < dia_final and mes_cor=mes_final) then
                                                                '   Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#FDE6CC""><font class=""texto_vermelho_crono"">" & iCurrent & "</font></TD>" 
                                                              ' Else
                                                                   Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle""><font class=""texto_branco_crono"">" & iCurrent & "</font></TD>" 								
                                                              ' End If							
                                                           End If					
                                                       End If
                                                   End If
                                                   iCurrent = iCurrent + 1
                                                   iPosition = iPosition + 1
                                               Loop


                                               iCurrent = 1
                                               iPosition = iDOW
                                               dias2 = GetDaysInMonth(mes, Year(dDate))	

                                               Do While iCurrent <= dias2
                                                   If iCurrent = dia_inicio and mes = mes_inicio Then
                                                       Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#00CC33""><font class=""texto_verde_crono"">" & iCurrent & "</font></TD>" 
                                                   Else
                                                       If iCurrent = dia_analise and mes = mes_analise Then
                                                           Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#FFFF00""><font class=""texto_amarelo_crono"">" & iCurrent & "</font></TD>" 
                                                       Else
                                                           If iCurrent = dia_final and mes = mes_final Then
                                                               Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#E74629""><font class=""texto_vermelho_crono"">" & iCurrent & "</font></TD>" 					
                                                           Else
                                                              ' If (iCurrent > dia_inicio and mes=mes_inicio) and (iCurrent < dia_final and mes=mes_final) then
                                                               '    Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle"" bgcolor=""#FDE6CC""><font class=""texto_vermelho_crono"">" & iCurrent & "</font></TD>" 
                                                              ' Else
                                                                   Response.Write "<TD width=""13"" height=""26"" align=""center"" valign=""middle""><font class=""texto_branco_crono"">" & iCurrent & "</font></TD>" 								
                                                               'End If							
                                                           End If					
                                                       End If
                                                   End If

                                                   iCurrent = iCurrent + 1
                                                   iPosition = iPosition + 1
                                               Loop

                                           tbl.movenext
                                           loop																		
                                           %>                                            
                                               </TR>
                                           <%

                                           %>
                                           </TABLE> 
                                           <br><br>

                                          <TABLE BORDER=1 bordercolor="#808080" CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>                                    
                                               <TR height="20">
                                                   <TD width="208" align="center" bgcolor="#f47509" colspan="2">
                                                   <font face="verdana" size="-2" color="#FFFFFF"><b>LEGENDA</b></font>
                                                   </TD>
                                               </TR>
                                               <tr>
                                                   <td height="20"><font class="texto9_cinza" style="padding-left:4px">INÍCIO DO PROJETO</font></td>
                                                   <td width="15" bgcolor="#00CC33"> </td>
                                               </tr>
                                               <!--<tr>
                                                   <td height="26"><b><font class="texto10_cinza">Desenvolvimento</font></b></td>

                                                   <td width="10" bgcolor="#FDE6CC"></td>
                                               </tr>-->
                                               <tr>
                                                   <td height="20"><font class="texto9_cinza" style="padding-left:4px">ANÁLISE DO PROJETO</font></td>
                                                   <td width="15" bgcolor="#FFFF00"> </td>
                                               </tr>                                    
                                               <tr>
                                                   <td height="20"><font class="texto9_cinza" style="padding-left:4px">FECHAMENTO DO PROJETO</font></td>
                                                   <td width="15" bgcolor="#E74629"> </td>                                                                        
                                               </tr>
                                           </TABLE>                             
                                           </TD>			
								</TR>


                                   <%

                                   end if	
                                   end if										
                                   %>

                               </table> 

<!-- ************* fim conteudo ************* --> 



<%
 c = c + 1											
  rsBuscaAcesso.MoveNext
  loop

  'Apaga do os Objetos criados
 %>

Quando eu tiro o WHILE ele não da erro e funciona perfeitamente.

alguem por gentileza sabe o que está acontecendo?

Tiago Santos - Sonic Parks · Fevereiro 24, 2011

Se você notar em seu código, suas funções estão dentro de um laço (do while). Isso não é permitido. Você deve montar funções fora de laços.

O erro começa aqui:

'Loop para pegar os todos os dados da tabela Acessos no banco de dados

c = 0

do while not rsBuscaAcesso.eof

Abraços.

xanburzum · Fevereiro 25, 2011

Isso geralmente ocorre com novos métodos ou funções, tais como FileSystemObject, try{} or With. O motivo é que você tem uma biblioteca de script que é mais antigo que o código de documentação ou amostra que você está trabalhando.Tenha em mente que há sempre a possibilidade exterior de estar incorreto da propriedade / método, ou usando um componente onde essa propriedade ou método é, de fato, não são suportados.

verifique também se existe algum erro ortográfico no método / propriedade, ou usar um método / propriedade que não existe no componente que você está acessando.

Se você estiver recebendo esse erro ao usar uma biblioteca de MetaData tag de tipo para o MDAC, certifique-se que você está especificando uma versão válida e que você tem a versão mais recente do MDAC instalada (receba as últimas do MDAC página de download).

razs · Janeiro 25, 2012

Sei que este post ja tem quase um ano mas estou na mesma situação, inclusive tenho response.write pela pagina toda e nao mostra nada a não ser

Microsoft VBScript compilation error '800a03ea'

Syntax error

/usercorc/reguser.asp, line 352

sub addusers()
^

Vinicius Ianni · Janeiro 25, 2012

Ele aponta que tem um erro de sintaxe que ocorre chamando essa sub.

razs · Janeiro 25, 2012

Sim mas se eu puser outro codigo nesse lugar, ele ja da erro do novo codigo, ele da erro no inicio do codigo asp seja o que quer que for que la esteja

xanburzum · Janeiro 25, 2012

poste a sub addusers, para analisarmos, e destaque a linha do erro

razs · Janeiro 25, 2012

	sub addusers()  <-----Esta é a linha do erro

if request.form("E-mail")="" or request.form("Username")="" or request.form("Study")="" or request.form("Study")="Choose" or request.form("user_status")="0" or request.form("Center")="Choose"  then 	
	Response.Redirect("reguser.asp?msg=Please fill all fields mark with (*) ")
else

 instotal = "select * from users WHERE username = '" & Request.Form("Username") & "' or email = '" & Request.Form("E-mail") & "'"
  rs.open instotal,conn,2,2

	 If not rs.EOF Then 
		Response.Redirect("reguser.asp?msg=That username or e-mail is already in use")
		Else

strpassword = request.form("Username") + ""&newpassreg&""

rs.addnew
rs.fields("email")=request.form("E-mail")
   rs.fields("nome")=request.form("Name")
   rs.fields("data_reg")=date()
rs.fields("last_name")=request.form("LastName")
rs.fields("username")=request.form("Username")
rs.fields("password")= MD5(strpassword)	
rs.fields("center")=request.form("Center")
rs.fields("website")=request.form("Website")
If request.form("Date_Birth_day")="Day" or request.form("Date_Birth_month")="Month" or request.form("Date_Birth_year")="Year" then
else
rs.fields("data_nasc")=request.form("Date_Birth_day")&"-"&request.form("Date_Birth_month")&"-"&request.form("Date_Birth_year")
end if
rs.fields("morada")=request.form("Address")
rs.fields("cidade")=request.form("City")
rs.fields("pais")=request.form("Country")
rs.fields("telefone")=request.form("Telephone")
rs.fields("pergunta")=request.form("safquest")
rs.fields("resposta")=request.form("safeans")
rs.fields("add_by")=Session("user")
rs.fields("datdia")=request.form("Date_Birth_day")
rs.fields("datmes")=request.form("Date_Birth_month")
rs.fields("datano")=request.form("Date_Birth_year")
rs.fields("user_status")= request.form("user_status")

rs.update
rs.close

Response.Redirect("reguser.asp?msg=User inserted successfully.'"&newpassreg&"'")	

end if
end if

  conn.close
end sub

Mário Monteiro · Janeiro 25, 2012

Isso ai é a declaração da sub ou apenas está chamando-a?

Se for a segunda opção troque por

call addusers()

razs · Janeiro 25, 2012

é a declaração, ele chama aqui

if request.form("insform.x")>0 then
addusers
end if

tenho esta situação em 5 ou 6 paginas mas so aqui é que nao funciona, eu nao acredito que seja da sub porque se no sitio da sub eu colocar uma function ele ai ja nao da erro da sub mas sim da function

Mário Monteiro · Janeiro 25, 2012

voce chama no mesmo arquivo onde declara?

nestes outros locais que funciona é usado o mesmo nome?

razs · Janeiro 25, 2012

Sim é usado com o mesmo nome

ela é desnecessario mas habituei-me a fazer assim

if request.form("insform.x")>0 then
addusers
end if

sub addusers()

se eu tirar a sub ele da este erro

Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

/usercorc/reguser.asp, line 401

sendo que a linha 401 é um end if

Mário Monteiro · Janeiro 25, 2012

você chama antes de declarar?

se é desnecessária porque usa?

razs · Janeiro 25, 2012

Foi um habito idiota que apanhei....

ja retirei, agora em vez do if abrir a sub abre logo o que a sub iria fazer

agora da-me erro no ultimo end if

Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

/usercorc/reguser.asp, line 401

Mário Monteiro · Janeiro 25, 2012

Post o codigo atual e aponte a linha do erro para facilitar

razs · Janeiro 25, 2012


<%



newpassreg = gen_pass(intGEN)

response.write "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"

if request.form("insform.x")>0 then


if request.form("E-mail")="" or request.form("Username")="" or request.form("Study")="" or request.form("Study")="Choose" or request.form("user_status")="0" or request.form("Center")="Choose"  then 	
	Response.Redirect("reguser.asp?msg=Please fill all fields mark with (*) ")
else

 instotal = "select * from users WHERE username = '" & Request.Form("Username") & "' or email = '" & Request.Form("E-mail") & "'"
  rs.open instotal,conn,2,2

	 If not rs.EOF Then 
		Response.Redirect("reguser.asp?msg=That username or e-mail is already in use")
		Else

strpassword = request.form("Username") + ""&newpassreg&""

rs.addnew
rs.fields("email")=request.form("E-mail")
   rs.fields("nome")=request.form("Name")
   rs.fields("data_reg")=date()
rs.fields("last_name")=request.form("LastName")
rs.fields("username")=request.form("Username")
rs.fields("password")= MD5(strpassword)	
rs.fields("center")=request.form("Center")
rs.fields("website")=request.form("Website")
If request.form("Date_Birth_day")="Day" or request.form("Date_Birth_month")="Month" or request.form("Date_Birth_year")="Year" then
else
rs.fields("data_nasc")=request.form("Date_Birth_day")&"-"&request.form("Date_Birth_month")&"-"&request.form("Date_Birth_year")
end if
rs.fields("morada")=request.form("Address")
rs.fields("cidade")=request.form("City")
rs.fields("pais")=request.form("Country")
rs.fields("telefone")=request.form("Telephone")
rs.fields("pergunta")=request.form("safquest")
rs.fields("resposta")=request.form("safeans")
rs.fields("add_by")=Session("user")
rs.fields("datdia")=request.form("Date_Birth_day")
rs.fields("datmes")=request.form("Date_Birth_month")
rs.fields("datano")=request.form("Date_Birth_year")
rs.fields("user_status")= request.form("user_status")

rs.update
rs.close

Response.Redirect("reguser.asp?msg=User inserted successfully.'"&newpassreg&"'")	

end if
end if   <----------Microsoft VBScript compilation error '800a03fa' Expected 'Wend'

  conn.close
end if

%>

Mário Monteiro · Janeiro 25, 2012

Este é o codigo todo? pergunto porque tem fechamento da tag asp la em baixo mas nao tem abertura em cima

O no que o numero de End IF corresponde ao de If que abriu mas tem um IF sem função no meio do codigo

         If request.form("Date_Birth_day")="Day" or request.form("Date_Birth_month")="Month" or request.form("Date_Birth_year")="Year" then

        else
           rs.fields("data_nasc")=request.form("Date_Birth_day")&"-"&request.form("Date_Birth_month")&"-"&request.form("Date_Birth_year")
        end if

razs · Janeiro 25, 2012

nao tem abertura? esta la no cimo.

Um if sem funcao? ele simplesmente ve os valores e se forem aqueles defenidos nao adiciona a bd

tenho isto a meio da pagina mas nao me parece que esteja a fazer interferencia

<div class="field"><label></label><select size="1" name="Center" id="">
<option selected>Choose</option>
<%While Not rs.EOF
instotal2 = "select center from centros group by center" 
rs2.open instotal2,conn,2,2

	While Not rs2.EOF%>
	<option value="<%= rs2("center") %>"><%= rs2("center") %></option>
<%
rs2.MoveNext
Wend
rs2.Close
Set rs2 = Nothing
%>

</select></div>

xanburzum · Janeiro 26, 2012

neste While Not rs.EOF, você esta usando o rs2.open instotal2,conn,2,2

nao seria a execucao do rs

razs · Janeiro 26, 2012

mas eu depois fecho-o logo.

tinhas razao, quando actualizei alguns campos esquecime de tirar o rs e o while de outro campo....

retirei o While Not rs.EOF e ja funciona, obrigado :)

Arquivado

[Resolvido] Error '800a03ea'

Recommended Posts

Flavio Rezende 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tiago Santos - Sonic Parks 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0