Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Consulta asp dinamica?! se podra
 Foro Bloqueado  Tema Bloqueado


Autor Temas
coolsite
Starting Member


7 Posts
Mensajes - 21 Jun 2007 :  07:29:36  Ver Perfil  Enviar Email
Bien me gustaria saber como peudo realizar una consulta y qeu esta en cada registro desplegado me aparesca una opcion de guardar, (por ejemplo en los sistemas de e-commerce, que se van agregando aun carrito) ahora no quiero hacer un sistema de shopping, solo quiero que si consulto mi BD esta desplieque , salga la opcion de guarda y las manda a un "carrito" y leego estos datos guardados se envien por correo...

me explico???

Ayudenme!

este es el codigo que uso para conectarme y hacer la consulta..

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form method="POST" action="grpaginar.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="7%">CLAVE:</td>
<td width="93%"><input type="text" name="Cref" size="15">
<input type="submit" value="Buscar" name="B1">
<input type="reset" value="Limpiar" name="B2"></td>
</tr>
<tr>
<td width="7%">&nbsp;</td>
<td width="93%">&nbsp;</td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td align="center">
<%

Dim pag, iEstado
Dim SQL, RS
Dim aDatos, iTotal
Dim I, J, ccref

ccref=request.form("cref")
Function OpenDBFConn(Path)
Dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & ";" & _
"Extended Properties=""DBASE 5.0;"";"
Set OpenDBFConn = Conn
End Function


'Open connection For DBF files In F:\ folder
Dim DBConn
Set DBConn = OpenDBFConn("c:\Inetpub\wwwroot\maluva\db")
Set RS = Server.CreateObject("ADODB.RecordSet")
Sql="Select Cref,Nstock from [Stocks#dbf] where Cref like '%"&ccref&"%' order by Cref"


RS.CursorType = 0
'LockType = Read-Only
RS.LockType = 1
'CuRSorLocation = adUseClient
RS.CursorLocation = 3
'Y abrimos el Recordset
RS.Open SQL, DBConn %>
<%if RS.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su petición </font></h3>
<%else%>
<%
'Obtengo los datos con GetRows
aDatos = RS.GetRows
'Cierro y limpio objetos ya
RS.Close
DBConn.Close
set RS = nothing
set DBConn = nothing

'Obtengo la página a mostrar de
'la querystrings
pag = CInt(Request.QueryString("P"))
'Y llamo a PaginarGR
iEstado = PaginarGR (20, pag, aDatos)


'=====================================================================================
' PaginarGR -- Pagina un vector bidimensional
' vector es el vector a paginar, iPag la página a mostrar y iRSsPorPag el nº de
' RSistros por cada página que queremos.
'=====================================================================================
Function PaginarGR (iRSsPorPag, iPag, vector)
'
'I, J se utilizan para recorrer el vector
Dim I, J
'Total de páginas y la página que queremos mostrar
Dim iPaginas, iPagActual
'Total de RSistros, RSistro en que empezamos y RSistro en que terminamos
Dim iTotal, iComienzo, iFin

'Hallo el total de RSistros devueltos
iTotal = UBound(aDatos,2)+1
'Calculo el numero de páginas que tenemos
iPaginas = (iTotal \ iRSsPorPag)
'Si daba decimales, añado una más
'para mostrar los últimos RSistros
if iTotal mod iRSsPorPag > 0 then
iPaginas = iPaginas + 1
end if
'Si no es una página válida, comienzo en la primera
if iPag < 1 then
iPag = 1
end if
'Si es una página mayor al nº de páginas, comienzo en la última
if iPag > iPaginas then
iPag = iPaginas
end if
Response.Write("<table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
Response.Write("Página " & iPag & " de " & iPaginas & " (" & iTotal & " Productos)<br>")

'Calculo el índice donde comienzo:
iComienzo = (iPag-1)*iRSsPorPag
'y donde termino:
iFin = iComienzo + (iRSsPorPag-1)
'Si no tengo suficientes RSistros restantes,
'voy hasta el final
if iFin > UBound(vector, 2) then
iFin = UBound(vector, 2)
end if
Response.Write("</TABLE>")
'Pinto la tabla
Response.Write("<table width=""400"" bgcolor=""#006600"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
Response.Write("<TR>")
Response.Write("<TD align=""center"" width=""200"">")
Response.Write("<font color=""#FFFFFF"">")
Response.Write("Clave")
Response.Write("</font>")
Response.Write("</TD>")
Response.Write("<TD align=""center"" width=""200"">")
Response.Write("<font color=""#FFFFFF"">")
Response.Write("Existencia")
Response.Write("</font>")
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("<table width=""400"" border=""1"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
for I= iComienzo to iFin
Response.Write("<TR>")
for J=0 to UBound(vector,1)
Response.Write("<TD align=""center"" width=""200"">" & vector(J,I) & "</TD>")

next
next
Response.Write("</TABLE>")

'Imprimo enlaces, si son necesarios
if iPag > 1 then
Response.Write("<table width=""400"" border=""1"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
Response.Write("<A HREF=""grpaginar.asp?P="&iPag-1&""">Anterior</A>&nbsp;&nbsp;")

end if
if iPag < iPaginas then

Response.Write("<A HREF=""grpaginar.asp?P="&iPag+1&""">Siguiente</A>&nbsp;")
Response.Write("</TABLE>")
end if

PaginarGR = 0


End Function
'=====================================================================================

'=====================================================================================
Function Tabla ( vector )
Response.Write("<table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
for J=0 to Ubound(vector, 2)
Response.Write("<TR>")
for I=0 to UBound(vector, 1)
Response.Write("<TD align=""center"" width=""200"">"&vector(I,J)&"</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
Tabla = UBound(vector, 2) + 1
End Function 'Tabla

%>
<%end if%>

SAludos y porfavor AYUDENME soy novato y si e estado leyendo solo que tengo poco tiempo para realizar este sistema asi que acudo a los sabios... gracias de antemano!

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar