Ir para conteúdo

POWERED BY:

Arquivado

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

bluis

preciso de

Recommended Posts

pessoal, estou precisando de ajuda para fazer o seguinte:

no codigo abaixo tenho um script de paginação, e precisava que os radio buttons atualizassem meu banco de dados, segue abaixo o codigo:

ASP [/tr][tr]table width="100%"  border="0" cellspacing="0" cellpadding="0">

<thead>

 <tr>

   <th width="10%" scope="col">Data Criação </th>

   <th width="15%" scope="col">Criador</th>

   <th width="35%" scope="col">Descrição</th>

   <th width="10%" scope="col">Data Término</th>

   <th width="10%" scope="col">Em Andamento </th>

   <th width="10%" scope="col">Concluído</th>

   <th width="10%" scope="col">Excluir</th>

 </tr>

</thead>

<form action="" method="post">

<tbody>

<%

Set RS = Server.CreateObject("adodb.recordset")

 

RS.PageSize = 5

 

SQL = "select * from pendencia where destinatario = '"&Session("apelido")&"' "

RS.Open SQL,Conn,3,3

 

IF RS.EOF then

  Response.Write "<font class='titulo'>Nenhum registro encontrado</font>"

  Response.End

ELSE

  IF Request.QueryString("b")="" then

     intpagina=1

  ELSE

     IF cint(Request.QueryString("b"))<1 then

        intpagina=1

     ELSE

        IF cint(Request.QueryString("b"))> RS.PageCount then

           intpagina=RS.PageCount

        ELSE

           intpagina=Request.QueryString("b")

        END IF

     END IF

  END IF

END IF

 

RS.AbsolutePage=intpagina

 

intrec=0

 

While intrec < RS.PageSize and not RS.EOF

  response.write   "<tr>" & _

   "<td class='radios'>" & RS("datacriacao") & "</td>" & _

   "<td class='radios'>" & RS("criador") & "</td>" & _

   "<td>" & RS("descricao") & "</td>" & _

   "<td class='radios'>" & RS("datatermino") & "</td>" & _

   "<td class='radios'><input name='condicao' type='radio' value=" & RS("condicao") & "checked onClick='submit'></td>" & _

   "<td class='radios'><input name='condicao' type='radio'" & RS("condicao") & "onClick='submit'></td>" & _

   "<td class='radios'><input name='condicao' type='radio'" & RS("condicao") & "onClick='submit'></td>" & _

 "</tr>"

 

  RS.MoveNext

 

intrec = intrec + 1

intMod = intrec mod 2

 

 if intmod = 0 then

  rcolor = "#ffffff"  

 elseif intmod=1 then

  rcolor = "#66ccff"  

 end if

 

 

  IF RS.EOF then

     response.write " "

  END IF

Wend

%>

</tbody>

</form>

</table>

<%

IF intpagina > 1 then

%>

   <a href="../aviso/exb_aviso.asp?b=<%=intpagina-1%>"><img src="../img/retrocesso.gif" /></a>

   <%

END IF

IF strcomp(intpagina,RS.PageCount) <> 0 then

%>

   <a href="../aviso/exb_aviso.asp?b=<%=intpagina + 1%>"><img src="../img/avanco.gif" /></a>

   <%

END IF

%>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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