Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ricardo coelho designer

ADM de Códigos ASP - Da erro...

Por , em ASP Clássico

Recommended Posts

ricardo coelho designer    0

ricardo coelho designer
Postado

Bom dia !!

 

Gente estou com o seguinte problema, preciso alterar no bd o código da página do usuário, quando chamo do BD ele me retorna somente 2 campos com os códigos sendo que preciso de oito.

 

Segue abaixo o código. Onde estou errando... E já agradeço desde já.

 

<%@Language="VBScript"%><!--#include file="_conexao.asp" --><!--#include file="_cookie.asp" --><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>AccessAdmin - iMasters - por Vinícius Luiz</title><link href="estilos.css" rel="stylesheet" type="text/css" /></head><body><!--#include file="_topo.asp" --><div id="quadro"><div id="conteudo"><form name="ADM_LAYOUT_UPDATE" action="ADM_LAYOUT_UPDATE.ASP" method="POST"><%Dim oConn, oRS, sql, rs, pagif request.querystring ("pagina") = "" thenSet oConn = Server.CreateObject("ADODB.Connection")oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados/oi.mdb")sql = "SELECT * FROM layout order by autonumero asc"set oRS = oConn.execute(sql)while not oRS.EOF   %><a href="adm_layout_usuario.asp?pagina=<%Response.Write(oRS(0))%>"><%Response.Write(oRS(0))%></a><br><%oRS.MoveNextwendoRS.closeset oRS = nothingelsepag = request.querystring ("pagina")Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados/oi.mdb")sql = "SELECT * FROM layout where autonumero ="&pagset oRS = oConn.execute(sql)while not oRS.EOF   %><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("autonumero"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("primeira"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("segunda"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("terceira"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("quarta"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("quinta"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("sexta"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("setima"))%></textarea><br><%oRS.MoveNextwendoRS.closeset oRS = nothingend if%><INPUT TYPE="Submit" NAME="submit" VALUE="Salvar"></form></div></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

Este aqui o que acontece que ele retorna 2 campos sendo que tenho oito campos.

 

pag = request.querystring ("pagina")Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados/oi.mdb")sql = "SELECT * FROM layout where autonumero ="&pagset oRS = oConn.execute(sql)while not oRS.EOF   %><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("autonumero"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("primeira"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("segunda"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("terceira"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("quarta"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("quinta"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("sexta"))%></textarea><br><textarea name="textfield" cols="50" rows="10"><%Response.Write(oRS("setima"))%></textarea><br><%oRS.MoveNextwendoRS.closeset oRS = nothingend if%><INPUT TYPE="Submit" NAME="submit" VALUE="Salvar"></form>

 

 

Em qual dos While está retornando errado???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito