[Resolvido] Either BOF or EOF is True

hargon · Janeiro 28, 2009

Fiz algumas alterações no código abaixo, teste e poste o resultado. Se der algum erro, poste a linha com o erro e o motivo do erro.

Se possível, disponibiliza o código naquele link que você citou acima.

<%
idcat=request.querystring("idcat")
nome_cat=request.querystring("nome_cat")
cat=request.querystring("cat")
idfoto=request.querystring("idfoto")
PagAtual = Request.QueryString("PagAtual")

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/filmes.mdb")
Conn.Open DSNtest

Set rsInicio = Server.CreateObject("ADODB.Recordset")
sql = "SELECT fotos.nome, fotos.nome_original, fotos.idcat, fotos.id, fotos.thumb, fotos.ano, fotos.detalhe, categorias.nome_cat "&_
	  "FROM fotos INNER JOIN categorias ON fotos.idcat = Categorias.id WHERE fotos.idcat= " & idcat  & " order by fotos.data_lancamento desc"
rsInicio.Open SQL, conn, 3

Const NumPorPage = 12

Dim PagAtual

If ((len(Request.QueryString("PagAtual")) = 0) Or (Not isNumeric(Request.QueryString("PagAtual")))) Then
	PagAtual = 1
Else
	PagAtual = Request.QueryString("PagAtual")
End If

rsInicio.CacheSize = NumPorPage
rsInicio.MoveFirst		
rsInicio.PageSize = NumPorPage	

Dim TotalPages			  
TotalPages = rsInicio.PageCount

rsInicio.AbsolutePage = PagAtual  
%>

<%
Set rs2 = Conn.Execute("SELECT count(nome) AS total FROM fotos WHERE idcat=" & idcat & "")
totalreg = rs2("total")
rs2.Close
Set rs2 = Nothing
%>

<%
Function resumindo(txt,vCrt)
	if Len(txt) <= vCrt then
		response.write (left(txt,vCrt))
	else
		while not ul=" " or vCrt=len(txt)
			vExibe = left(txt,vCrt)
			ul= right(vExibe,1)
			vCrt=vCrt+1
		wend
		if vCrt=len(txt) then
			Response.Write(txt)
		else
			vExibe=left(vExibe,(len(vExibe)-1))&"..."
			Response.Write(vExibe)
		end if
	end if
end function
%>

<%
Function resumindo02(txt,vCrt)
		vX = Mid(txt, 1, vCrt)
		if NOT Len(txt) <= vCrt then
				resumindo02 = vX & "..."
		else
				resumindo02 = vX
		end if
end function
%>

<style media="screen" type="text/css">

.pag-atual{float:left; padding:4px; width:23px; background:#c00; color:#fff; margin:3px; font:11px "Arial";}
.pag-pontinhos{float:left; padding:4px; width:23px; background:#E8E8E8; color:#999; margin:3px; font:11px "Arial";}
.pag-pontinhos a{color:#c00;text-decoration:none; font:11px "Arial";}
.pag-pontinhos a:hover{color:#000;text-decoration:underline; font:11px "Arial";}
.pag-navegacao-off{float:left; padding:4px; width:46px; background:#E8E8E8; color:#999; margin:3px; font:11px "Arial";}

.pag-link{float:left; padding:4px; width:23px; background:#ccc; margin:3px; font:11px "Arial";}
.pag-link a{color:#c00;text-decoration:none; font:11px "Arial";}
.pag-link a:hover{color:#000;text-decoration:underline; font:11px "Arial";}

.pag-link2{float:left; padding:3px; width:15px; background:#ccc; margin:0px; font:11px "Arial";}
.pag-link2 a{color:#c00;text-decoration:none; font:11px "Arial";}
.pag-link2 a:hover{color:#000;text-decoration:underline; font:11px "Arial";}

.pag-navegacao{float:left; width:46px; padding:4px; background:#ccc; margin:3px; font:11px "Arial";}
.pag-navegacao a{color:#c00;text-decoration:none; font:11px "Arial";}
.pag-navegacao a:hover{color:#000;text-decoration:underline; font:11px "Arial";}

.text {
	font-family: Arial;
	font-size: 11px;
	font-weight: normal;
	color: #000000;
}
	a.classe1:link {color:#573c44; font-family:arial; font-size:11px; text-decoration:none;}
	a.classe1:visited {color:#573c44; font-family:arial; font-size:11px; text-decoration:none;}
	a.classe1:hover {color:#573c44; font-family:arial; font-size:11px; text-decoration:underline;
}

.moldura {
   padding:4px 4px 4px 4px;
   background-color: #eeeeee;
   height: 120px;
   width: 84px;
   border: 1px solid #000000;
}
.moldura IMG{
   border: 1px solid #000000;}

</style>
<html>
	<head>
		<title>
<%
If Not rsInicio.Eof Then
	Response.Write rsInicio("nome_cat")
End If
%>
		</title>
	</head>
	<body>
		<table width="100%" border="0" cellpadding="0" cellspacing="0">
			<tr>
				<td colspan="4">
					<table width="100%" border="0" cellpadding="0" cellspacing="0">
						<tr>
							<td>
								<img src="images/topo.jpg" border="0">
							</td>
						  </tr>
					</table>
			<tr>
				<td>
					<table width="100%" border="0" cellpadding="0" cellspacing="0">
						<tr>
							<td valign="top" width="107" background="images/barra01.gif"> </td>
							<td valign="top">
								<table valign="top" border="0" cellpadding="0" cellspacing="0">
									<tr>
										<td width="213">
											<!--#include file="menu.asp"-->
										</td>
									</tr>
								</table>
							</td>
						</tr>
					</table>
				</td>
				<td valign="top" width="20">
					<img src="images/barra02.gif">
				</td>
				<td valign="top" width="575">
					<table border="0" cellspacing="0" cellpadding="0" width=575>
						<tr>
							<td>
								<table border="0" cellspacing="0" cellpadding="0" width=575>
									<tr>
										<td>
											<table border="0" cellspacing="0" cellpadding="0" width=575>
												<tr>
													<td class="text" colspan="2">
<%
If Not rsInicio.Eof Then
	Response.Write rsInicio("nome_cat")
End If
%>
													</td>
												</tr>
												<tr>
													<td class="text">
														Foram encontrado(s) <b><%=totalreg%></b> filme(s)
													</td>
													<td class="text" align="right">
														Página <b><%=PagAtual%></b> de <b><%=Totalpages%></b>
													</td>
												</tr>
											</table>
									<tr>
										<td></td>
									</tr>
									<tr>
										<td>
<%
idcat = Request.QueryString("idcat")
letra = Request.QueryString("letra")

Set Rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT distinct nome, idcat from fotos WHERE idcat=" & idcat & " order by nome asc"
Rs1.Open SQL1, conn, 3

If Not Rs1.EOF Then
%>
											<table align="center" border="0" cellpadding="0" cellspacing="0">
												<tr>
<%
	While Not Rs1.EOF
%>
													<td align="center">
														<div class="pag-link2">
															<a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(Rs1("nome")),1)%>&idcat=<%=Rs1("idcat")%>"><%=LEFT(trim(Rs1("nome")),1)%>
													</td>
													<td></td>
<%
		Rs1.MoveNext
	Wend
%>
												</tr>
											</table>
<%
End If
Rs1.Close
Set Rs1 = Nothing
%>
										</table>
									<tr>
										<td></td>
									</tr>

									<table valign="top" border="0" cellspacing="0" cellpadding="0">
<%
If rsInicio.Eof Then
%>
										<tr>
											<td align="center" class="text">Nenhum registro cadastrado !</td>
										</tr>
										<tr><td></td></tr>
<%
Else
	rsInicio.MoveFirst
	
	rsInicio.absolutepage = PagAtual
   	count = 0
   	
	Do While Not rsInicio.Eof And (count < rsInicio.pagesize)
   		If (somando = 0) Then

   '*** Inicia a primeira coluna
%>
										<tr>
											<td valign="top" width="191" align="left">
												<table valign="top" border="0" cellspacing="0" cellpadding="0" width="191" align="left">
													<tr>
														<td align="left">
															<table valign="top" border="0" cellspacing="0" cellpadding="0" width="191" align="left">
																<tr>
																	<td align="center" valign="top">
																		<div class="moldura">
																			<a href="ver_filme.asp?idcat=<%=rsInicio("idcat")%>&idfoto=<%=rsInicio("id")%>">
																				<img border="0" src="<%=rsInicio("thumb")%>" width="82" height="120"></a>
																	</td>
																</tr>
																<tr>
																	<td>
																		<img src="images/barra04.gif" border="0">
																	</td>
																</tr>
																<tr>
																	<td valign="top" align="center" class="text">
																		<b><%=resumindo02(rsInicio("nome"), 27)%>
																	</td>
																</tr>
																<tr>
																	<td valign="top" align="center" class="text">
																		<i><%=resumindo02(rsInicio("nome_original"), 20)%>, <%=rsInicio("ano")%>
																	</td>
																</tr>
																<tr>
																	<td>
																		<img src="images/barra06.gif" border="0">
																	</td>
																</tr>
																<tr>
																	<td valign="top" align="left">
																		<table border="0" cellpadding="5" cellspacing="0">
																			<tr>
																				<td class="text" align="center">
																					<%=resumindo(rsInicio("detalhe"), 80)%>
																				</td>
																			</tr>
																		</table>
																</tr>
															</table>
														</td>
														<td valign="top">
															<img src="images/barra05.gif">
														</td>
													</td>
												</tr>
												<tr>
													<td colspan="2">
														<img src="images/barra07.gif">
													</td>
											</table>
										</td>
<%
			count = count + 1
			somando = 1
	
   		ElseIf (somando = 1) Then

   '*** Inicia a segunda coluna
%>

										<td valign="top" width="191" align="left">
											<table valign="top" border="0" cellspacing="0" cellpadding="0" width="191" align="left">
												<tr>
													<td align="left">
														<table valign="top" border="0" cellspacing="0" cellpadding="0" width="191" align="left">
															<tr>
																<td align="center" valign="top">
																	<div class="moldura">
																		<a href="ver_filme.asp?idcat=<%=rsInicio("idcat")%>&idfoto=<%=rsInicio("id")%>">
																			<img border="0" src="<%=rsInicio("thumb")%>" width="82" height="120"></a>
																</td>
															</tr>
															<tr>
																<td>
																	<img src="images/barra04.gif" border="0">
																</td>
															</tr>
															<tr>
																<td valign="top" align="center" class="text">
																	<b><%=resumindo02(rsInicio("nome"), 27)%>
																</td>
															</tr>
															<tr>
																<td valign="top" align="center" class="text">
																	<i><%=resumindo02(rsInicio("nome_original"), 20)%>, <%=rsInicio("ano")%>
																</td>
															</tr>
															<tr>
																<td>
																	<img src="images/barra06.gif" border="0">
																</td>
															</tr>
															<tr>
																<td valign="top" align="left">
																	<table border="0" cellpadding="5" cellspacing="0">
																		<tr>
																			<td class="text" align="center">
																				<%=resumindo(rsInicio("detalhe"), 80)%>
																			</td>
																		</tr>
																	</table>
															</tr>
														</table>
													</td>
													<td valign="top">
														<img src="images/barra05.gif">
													</td>
												</td>
											</tr>
											<tr>
												<td colspan="2">
													<img src="images/barra07.gif">
												</td>
										</table>
									</td>
<%
   			count = count + 1
   			somando = 2

		ElseIf (somando = 2) Then

   '*** Inicia a segunda coluna
%>
									<td valign="top" width="191" align="left">
										<table valign="top" border="0" cellspacing="0" cellpadding="0" width="191" align="left">
											<tr>
												<td align="left">
													<table valign="top" border="0" cellspacing="0" cellpadding="0" width="191" align="left">
														<tr>
															<td align="center" valign="top">
																<div class="moldura">
																	<a href="ver_filme.asp?idcat=<%=rsInicio("idcat")%>&idfoto=<%=rsInicio("id")%>">
																		<img border="0" src="<%=rsInicio("thumb")%>" width="82" height="120"></a>
															</td>
														</tr>
														<tr>
															<td>
																<img src="images/barra04.gif" border="0">
															</td>
														</tr>
														<tr>
															<td valign="top" align="center" class="text">
																<b><%=resumindo02(rsInicio("nome"), 27)%>
															</td>
														</tr>
														<tr>
															<td valign="top" align="center" class="text">
																<i><%=resumindo02(rsInicio("nome_original"), 20)%>, <%=rsInicio("ano")%>
															</td>
														</tr>
														<tr>
															<td>
																<img src="images/barra06.gif" border="0">
															</td>
														</tr>
														<tr>
															<td valign="top" align="left">
																<table border="0" cellpadding="5" cellspacing="0">
																	<tr>
																		<td class="text" align="center">
																			<%=resumindo(rsInicio("detalhe"), 80)%>
																		</td>
																	</tr>
																</table>
														</tr>
													</table>
												</td>
												<td valign="top">
													<img src="images/barra05.gif">
												</td>
											</td>
										</tr>
										<tr>
											<td colspan="2">
												<img src="images/barra07.gif">
											</td>
									</table>
								</td>
							</tr>

<%
   			count = count + 1
			somando = 0
		End If

   		rsInicio.MoveNext
	Loop
%>
						</table>

						<table BORDER="0" cellspacing="0" cellpadding="0" width=575>
							<tr>
								<td colspan="2"></td>
							</tr>
							<tr>
								<td class="text">
									Foram encontrado(s) <b><%=totalreg%></b> filme(s)
								</td>
								<td class="text" align="right">
									Página <b><%=PagAtual%></b> de <b><%=Totalpages%></b>
								</td>
							</tr>
							<tr><td colspan="2"></td></tr>
							<tr>
								<td colspan="2" align="center">
									<table BORDER="0" cellspacing="0" cellpadding="0" align="center">
										<tr>
											<td align="center">
<%
	var01 = Len(PagAtual) 'Lê o tamanho do numero
	var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
	var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numero
	var04 = Right(PagAtual,1)	'obtem o digito menos sig. do numero
	var05 = var03 & 0 ' Acrecenta ZERO no final
	IF var04 <> 0 THEN		' condição se o digito menos sig. é Zero
		inicial = var05 + 1
		final = inicial + 9  
	ELSE
		inicial = var05 - 9  
		final = var05
	END IF
	
	indice_i = var04 - 1 'ultimo digito  - 1
	indice_f = 10 - var04 ' 10 - digito menos sig.
	
	
	' If CInt(inicial) < 1 Then inicial = 1
		
	If CInt(final) > CInt(TotalPages) Then final = TotalPages
	
	'------------------------------------------------------------------------------
	
	
	If (PagAtual > 1) Then
	
		'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
		Response.Write("<div class='pag-navegacao'>")
		Response.Write("<a href='todos_filmes.asp?PagAtual=" &  1 & "&idcat=" & idcat & "'>")
		Response.Write("Primeira")
		Response.Write("</a></div>  ")
		
		Response.Write("<div class='pag-navegacao'>")
		Response.Write("<a href='todos_filmes.asp?PagAtual=" & PagAtual - 1 & "&idcat=" & idcat & "'>")
		Response.Write("Anterior")
		Response.Write("</a></div>  ")
		
		If (PagAtual > 10) Then
			Response.Write("<div class='pag-pontinhos'>")
			Response.Write("<a href='todos_filmes.asp?PagAtual=" & inicial - 1 & "&idcat=" & idcat & "'>")
			Response.Write("...")
			Response.Write("</a></div>  ")	
		Else
			Response.Write("<div class='pag-pontinhos'>")
			Response.Write("....")
			Response.Write("</div>  ")	
		End If	
	Else	
		Response.Write("<div class='pag-navegacao-off'>")
		Response.Write("Primeira")
		Response.Write("</div>  ")
		
		Response.Write("<div class='pag-navegacao-off'>")
		Response.Write("Anterior")
		Response.Write("</div>  ")
		
		Response.Write("<div class='pag-pontinhos'>")
		Response.Write("...")
		Response.Write("</div>  ")	
	End If
	
	'---------------------- NUMEROS  ---------------------------
	
	For i = inicial To final
		If (CInt(i)=CInt(PagAtual)) Then
			Response.Write "<div class='pag-atual'> " & i & " </div>  "
		End If
		
		If (CInt(i) < CInt(PagAtual)) Then
			Response.Write "<div class='pag-link'><a href='todos_filmes.asp?PagAtual=" & i & "&idcat=" & idcat & "'> " & i & " </a></div>  "
		End If
		
		If (CInt(i) > CInt(PagAtual)) Then
			Response.Write "<div class='pag-link'><a href='todos_filmes.asp?PagAtual=" & i & "&idcat=" & idcat & "'> " & i & " </a></div>  "
		End If
	Next
	
	'------------------------------------------------------
	
	If (CInt(PagAtual) <> CInt(TotalPages)) Then
		p1 = Left(PagAtual,var02)
		p2 = Left(TotalPages,var02)
		p3 = Left(TotalPages,var02) & 0
		
		
		'##### CONDIÇÕES ########
		'digitos mais significativos do Numero com 1 no fim > PagAtual
		'EX:  21   [ 22 ]  23   24  25		 2 com 1 => 21 > 22 (F)
		'OU
		'PagAtual <= 10	  E	TotalPages > 10
		'EX:  ... 1  2  3  4 [ 5 ]  6  ...			  5 <= 10 (V)  E   6 > 10 (F)
		
		If (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) Then		
			   Response.Write("<div class='pag-pontinhos'>")
			   Response.Write("<a href='todos_filmes.asp?PagAtual=" & final + 1 & "&idcat=" & idcat & "'>")
			   Response.Write("...")
			   Response.Write("</a></div>  ")		
		Else		
			   Response.Write("<div class='pag-pontinhos'>")
			   Response.Write("...")
			   Response.Write("</div>  ")		
		End If
	
		Response.Write("<div class='pag-navegacao'>")
		Response.Write("<a href='todos_filmes.asp?PagAtual=" & PagAtual + 1 & "&idcat=" & idcat & "'>")
		Response.Write("Próxima")
		Response.Write("</a></div>  ")
		
		Response.Write("<div class='pag-navegacao'>")
		Response.Write("<a href='todos_filmes.asp?PagAtual=" & TotalPages & "&idcat=" & idcat & "'>")
		Response.Write("Última")
		Response.Write("</a></div>  ")		
	
	Else	
		  Response.Write("<div class='pag-pontinhos'>")
		  Response.Write("...")
		  Response.Write("</div>  ")
	
		  Response.Write("<div class='pag-navegacao-off'>")
		  Response.Write("Próxima")
		  Response.Write("</div>  ")
	
		  Response.Write("<div class='pag-navegacao-off'>")
		  Response.Write("Última")
		  Response.Write("</div>  ")
	End If
%>
										</td>
									</tr>
								<tr><td></td></tr>
							</table>
<%
End If
rsInicio.Close  
Set rsInicio = Nothing
Conn.Close	  
Set Conn = Nothing 
%>
						</td>
					</tr>
				</table>
			</TD>
		</table>
		<td valign="top" width="91" background="images/barra03.gif"> </td>
	</body>
</html>

Loko da Web · Janeiro 28, 2009

Continua dando o mesmo erro:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

A linha que acusa o erro, é o mesmo:

rsInicio.MoveFirst

http://www.aspet.somee.com/sistema%5Flocad...&cat=Terror

hargon · Janeiro 28, 2009

Putz.. não havia visto isso.

rsInicio.CacheSize = NumPorPage

rsInicio.MoveFirst

rsInicio.PageSize = NumPorPage

Remove essa linha em negrito. Não deveria ter esse MoveFirst aí.

Posta o resultado.

Loko da Web · Janeiro 28, 2009

Hargon agora deu certo...

Quando removi o rs.movefirst, deu um outro erro acusando essa linha:

rsInicio.AbsolutePage = PagAtual

Removi a linha acima tbem pra ver o que dava, e pronto funcionou !!!!!! Muito obrigado pela paciencia e atenção, me ajudou um monte !!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

PS: Mais uma coisa pq o nome do genero nao aparece ????

http://www.aspet.somee.com/sistema%5Flocad...&cat=Terror

hargon · Janeiro 28, 2009

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

O nome não aparece pq você está usando a mesma recordset para pegar o nome. Quando não tiver encontrado nenhum registro vai dar erro.

Veja que coloquei esse If em dois lugares mais acima.

<%
If Not rsInicio.Eof Then
	Response.Write rsInicio("nome_cat")
End If
%>

Para aparecer, você vai ter que usar um recordset especifica para pegar o genero.

Loko da Web · Janeiro 29, 2009

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

O nome não aparece pq você está usando a mesma recordset para pegar o nome. Quando não tiver encontrado nenhum registro vai dar erro.

Veja que coloquei esse If em dois lugares mais acima.
<%
If Not rsInicio.Eof Then
	Response.Write rsInicio("nome_cat")
End If
%>
Para aparecer, você vai ter que usar um recordset especifica para pegar o genero.

Não estou conseguindo fazer aparecer o nome... fiz dessa maneira:

<%
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/filmes.mdb")
Conn.Open DSNtest

Set rsnome = Server.CreateObject("ADODB.Recordset")
sql = "SELECT fotos.nome, fotos.nome_original, fotos.idcat, fotos.id, fotos.thumb, fotos.ano, fotos.detalhe, 

categorias.nome_cat "&_
	  "FROM fotos INNER JOIN categorias ON fotos.idcat = Categorias.id WHERE fotos.idcat= " & idcat  & " order by 

fotos.data_lancamento desc"
rsnome.Open SQL, conn, 3
%>

<title><%=rsnome("nome_cat")%></title>

e até assim:

<%
Do While Not rsInicio.Eof
%>
<%=rsnome("nome_cat")%>
<%
		   rsInicio.MoveNext
	Loop
%>

<title><%=rsinicio("nome_cat")%></title>

Quando clico num link onde nao tenha registro, fica tudo em branco... não aparece nada !!!

Só falta isso pra encerrar esse assunto de uma vez...

hargon · Janeiro 29, 2009

Não há necessidade INNER JOIN para essa consulta. Utilize somente a tabela de generos.

Dim nomeGenero
Set rsnome = Server.CreateObject("ADODB.Recordset")
sql = "SELECT nome_cat FROM categorias WHERE idcat= " & idcat
rsnome.Open SQL, conn, 3
If Not rsnome.Eof Then
	nomeGenero = rsnome("nome_cat")
Else
	nomeGenero = "Genero não identificado"
End If
rsnome.Close
Set rsnome = Nothing

Durante o código utilize nomeGenero, não há necessidade de manter uma recordset aberta só para acessar um único registro.

Loko da Web · Janeiro 29, 2009

Não há necessidade INNER JOIN para essa consulta. Utilize somente a tabela de generos.
Dim nomeGenero
Set rsnome = Server.CreateObject("ADODB.Recordset")
sql = "SELECT nome_cat FROM categorias WHERE idcat= " & idcat
rsnome.Open SQL, conn, 3
If Not rsnome.Eof Then
	nomeGenero = rsnome("nome_cat")
Else
	nomeGenero = "Genero não identificado"
End If
rsnome.Close
Set rsnome = Nothing
Durante o código utilize nomeGenero, não há necessidade de manter uma recordset aberta só para acessar um único registro.

Putz.... Não ta dando certo:

Aparaceu esse erro:

Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters.

Hargon, idcat= " & idcat faz parte da tabela fotos, ja nome_cat faz parte da categorias... entao tentei utilizar o inner join pra ver o que dava, e ficou tudo em branco !!!!!!

Estou chamando dessa forma:

<%
If Not rsnome.Eof Then
	Response.Write rsnome("nomeGenero")
End If
%>

Tentei dessa forma:

<%=rsnome("nomeGenero")%>

Tbem nao deu !!!!!

hargon · Janeiro 29, 2009

Putz... não é para usar assim:

Response.Write rsnome("nomeGenero")

É para usar assim

Response.Write nomeGenero

Você viu no código que postei, que armazenei o conteúdo na variável nomeGenero?

Então o que citei, era você usar a variável ao invés da recordset.

Releia com calma meu post anterior. Veja o que foi feito no código. Se não entender, poste aqui que explico novamente.

Loko da Web · Janeiro 29, 2009

Putz... não é para usar assim:

Response.Write rsnome("nomeGenero")

É para usar assim

Response.Write nomeGenero

Você viu no código que postei, que armazenei o conteúdo na variável nomeGenero?

Então o que citei, era você usar a variável ao invés da recordset.

Releia com calma meu post anterior. Veja o que foi feito no código. Se não entender, poste aqui que explico novamente.

Hargon meus parabens !!!!!! Deu tudo certo agora, muito obrigado pela paciencia e atenção, você me ajudou muuuuuuuuuuuuuuuuito mesmo !!!! Tranca esse topico de uma vez.... kkkkk http://forum.imasters.com.br/public/style_emoticons/default/worshippy.gif http://forum.imasters.com.br/public/style_emoticons/default/worshippy.gif http://forum.imasters.com.br/public/style_emoticons/default/worshippy.gif http://forum.imasters.com.br/public/style_emoticons/default/worshippy.gif

hargon · Janeiro 29, 2009

Bacana fi. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Abraço.

Arquivado

[Resolvido] Either BOF or EOF is True

Recommended Posts

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Fóruns

Tempo Real

Informação importante