Recebimento de Contas

[Guest Visitante]

Galera é seguinte

Tenho um controle de recebimento e gostaria de criar uma rotina pra dar baixo no recebimento de meus clintes , segue o codigo:

<%

Dim strURL

Dim cnnSearch

Dim rstSearch

Dim strDBPath

Dim strSQL

Dim strSearch

inicio = Timer

'#Função que tira todos os acentos das palavras

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "não"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%><title>Cadastro em ASP com foto</title>

<p>&nbsp;</p>

<table width="69%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">

<tr>

<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td bgcolor="#FFFFFF">

<form action="<%= strURL %>" method="get">

<div align="center">

<b><font face="Tahoma" size="2">Digite o nome </font></b>

<input name="search" value="<%= strSearch %>" size="20" />

<input name="submit" type="submit" value="Pesquisar" />

</div>

</form>

<p align="center">

<%

If strSearch <> "" Then

strDBPath = Server.MapPath("contato.mdb")

Const adUseClient = 3

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT associado, valor, vencimento " _

& "FROM mensalidades " _

& "WHERE associado LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "OR vencimento LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY valor;"

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

%>

</p></td>

</tr>

</table>

<p align="center"><br>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">( Foram encontradas&nbsp;<b><%=intContador%></b>

ocorrências )</font></p>

<div align="center">

<table width="629" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">

<tr>

<th width="196" bgcolor="#ECF4EC" align="left"><strong>

<font face="Tahoma" size="2">Nome</font></strong></th>

<th width="142" bgcolor="#ECF4EC"><strong>

<font face="Tahoma" size="2">Valor</font></strong></th>

<th width="128" bgcolor="#ECF4EC"><strong>

<font face="Tahoma" size="2">Vencimento</font></strong></th>

<th width="126" bgcolor="#ECF4EC" align="left">&nbsp;</th>

<th width="126" bgcolor="#ECF4EC" align="left">&nbsp;</th>

</tr>

<%

Do While Not rstSearch.EOF

%>

<tr>

<td bgcolor="#FFFFE6" width="196" align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("associado").Value %></font></td>

<td bgcolor="#FFFFE6" width="142" align="center">

<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("valor").Value %></font></div></td>

<td bgcolor="#FFFFE6" width="128" align="center">

<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("vencimento").Value %></font></div></td>

<td bgcolor="#FFFFE6" width="126" align="left">

&nbsp;<input name="baixa" type="button" onClick="rotina de baixa" value="baixa"></td>

<td bgcolor="#FFFFE6" width="126" align="left">

&nbsp;</td>

</tr>

<%

rstSearch.MoveNext

Loop

%>

</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>

&nbsp;Sua busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.</font><br>

<%

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

End If

%>

</div></td>

</tr>

</table>

<p>&nbsp;</p>

Como eu faço isso??

[]ços

[bareta]

basico crie uma lista de clientes e mensalidades por data... crie um botao e um campo ttipo sim não no banco...

ai um botão na lista que atualiza o item como pago...