smez

<% malha1 = "sim" temp1 = 0 While not lista_produtos.EOF set lista_categoria = lojaDB.Execute("SELECT strCategoriaDescricao FROM tblCategorias WHERE ID=" & lista_produtos("cat_id")) %> Informações técnicas (para a equipe de suporte) Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. /mc/admin/con_prod.asp, line 118 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página: GET /mc/admin/con_prod.asp

tenho em meu DB um campo chamado hora e o tipo dele e data/hora como que eu faço para mostrar na página de consulta somente o que for da hora atual. tipo assim tenho cadastrado ivone 12:30 carol 13:50 e agara for 12:30 ele mostra a ivone , e não tive nada cadastado com o mesmo horario ele mostra o próximo horario ou seja 13:50

e o seguinte eu coloquei no bd um campo de data e coloquei o tipo dele data/hora dai na página de pesquisa coloquei assim <%=weekDay(rs("data"))%> que e pra mostrar o dia da semana, so que ele mostra o dia da semana em número, como que eu faço pra colocar o dia da semana por extenso.

<form name="form1" method="post" action="faz_busca.asp"> <input type="text" name="local" size="20"> <input type="text" name="preço" size="20"> <input type="text" name="estado" size="20"> <input type="submit" value="Buscar" name="B1" style="border: 1px solid #111111;; background-color:#D0E8FF"></form> --- faz_busca.asp <% busca = request.form("busca") %> <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb sql = "select * from agenda where local LIKE '%"& local &"%'" rs.open sql do while not rs.eof %> <%=rs("local")%> <%=rs("preço")%> <%=rs("estado")%> <%rs.movenext loop rs.close() %> o código que eu tenho e esse, so que ele so por local, eu queria que ele fizesse um filtro de busca

estou querendo fazer uma busca com filtro. Tipo assim tem um campo local: preço: estado: dai eu digito o local o preço e o estado dai ele da o resultado... Como eu faço isso.

<% set rsTypeListing = Server.CreateObject("ADODB.Recordset") rsTypeListing.ActiveConnection = StringdeConexao rsTypeListing.Source = "SELECT * FROM cobertura WHERE ver=1 ORDER BY idd DESC" rsTypeListing.CursorType = 0 rsTypeListing.CursorLocation = 2 rsTypeListing.LockType = 3 rsTypeListing.Open() rsTypeListing_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> <% Dim HLooper1__numRows HLooper1__numRows = 16 Dim HLooper1__index HLooper1__index = 0 rsTypeListing_numRows = rsTypeListing_numRows + HLooper1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rsTypeListing_total = rsTypeListing.RecordCount ' set the number of rows displayed on this page If (rsTypeListing_numRows < 0) Then rsTypeListing_numRows = rsTypeListing_total Elseif (rsTypeListing_numRows = 0) Then rsTypeListing_numRows = 1 End If ' set the first and last displayed record rsTypeListing_first = 1 rsTypeListing_last = rsTypeListing_first + rsTypeListing_numRows - 1 ' if we have the correct record count, check the other stats If (rsTypeListing_total <> -1) Then If (rsTypeListing_first > rsTypeListing_total) Then rsTypeListing_first = rsTypeListing_total If (rsTypeListing_last > rsTypeListing_total) Then rsTypeListing_last = rsTypeListing_total If (rsTypeListing_numRows > rsTypeListing_total) Then rsTypeListing_numRows = rsTypeListing_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsTypeListing_total = -1) Then ' count the total records by iterating through the recordset rsTypeListing_total=0 While (Not rsTypeListing.EOF) rsTypeListing_total = rsTypeListing_total + 1 rsTypeListing.MoveNext Wend ' reset the cursor to the beginning If (rsTypeListing.CursorType > 0) Then rsTypeListing.MoveFirst Else rsTypeListing.Requery End If ' set the number of rows displayed on this page If (rsTypeListing_numRows < 0 Or rsTypeListing_numRows > rsTypeListing_total) Then rsTypeListing_numRows = rsTypeListing_total End If ' set the first and last displayed record rsTypeListing_first = 1 rsTypeListing_last = rsTypeListing_first + rsTypeListing_numRows - 1 If (rsTypeListing_first > rsTypeListing_total) Then rsTypeListing_first = rsTypeListing_total If (rsTypeListing_last > rsTypeListing_total) Then rsTypeListing_last = rsTypeListing_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = rsTypeListing MM_rsCount = rsTypeListing_total MM_size = rsTypeListing_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record rsTypeListing_first = MM_offset + 1 rsTypeListing_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (rsTypeListing_first > MM_rsCount) Then rsTypeListing_first = MM_rsCount If (rsTypeListing_last > MM_rsCount) Then rsTypeListing_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> <% Dim rsTypeListing_TFMcurrentPage Dim rsTypeListing_TFMtotalPages If MM_size > 0 Then rsTypeListing_TFMcurrentPage = Round(rsTypeListing_last/MM_size + .9999) rsTypeListing_TFMtotalPages = Round(rsTypeListing_total/MM_size + .9999) End If %> </head> <body leftmargin="0" topmargin="0"> <script language="JavaScript"> <!-- hide on function popup(popupfile,winheight,winwidth) { open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=no"); } // hide off --> </script> <table width="14%" border="0" cellpadding="0" cellspacing="0"> <% If Not rsTypeListing.EOF Or Not rsTypeListing.BOF Then %> <tr align="center" valign="top"> <td> <table> <% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = 10 while((numrows <> 0) AND (Not rsTypeListing.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <tr align="center" valign="top"> <% While ((startrw <= endrw) AND (Not rsTypeListing.EOF)) %> <td> <table width="36" border="0" cellspacing="1" cellpadding="0"> <tr> <td align="left" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"> <table border="0" cellspacing="1" cellpadding="0"> <tr> <td align="center" valign="middle"><a href="cobertura.asp?id=<%=(rsTypeListing.Fields.Item("baladax").Value)%>"><img src="foto/<%=(rsTypeListing.Fields.Item("foto").Value)%>" width="40" height="40" border="0" align="absmiddle"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> <%=(rsTypeListing.Fields.Item("data").Value)%><br><%=(rsTypeListing.Fields.Item("local").Value)%></font></a></td> </tr> </table></td> </tr> </table></td> </tr> </table></td> <% startrw = startrw + 1 rsTypeListing.MoveNext() Wend %> </tr> <% numrows=numrows-1 Wend %> </table> </td> </tr> <% End If ' end Not rsTypeListing.EOF Or NOT rsTypeListing.BOF %> <tr align="left" valign="top"> <% If rsTypeListing.EOF And rsTypeListing.BOF Then %> <td><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif" class="textBold">SEM COBERTURA .</font> </td> <% End If ' end rsTypeListing.EOF And rsTypeListing.BOF %> </tr> </table> <% rsTypeListing.Close() %> não está funcionando a paginação, como que eu faço........

eu tenho um e-commerce, gostaria de saber como eu faço para fazer o sistema calcular o valor da compra + o valor do frete. sendo que o valor do frete seria de acordo com o estado...

www.smez.com.br/admin

o campo id do meu banco de dados esta em auto númeração e esta com chave

quando vou excluir um inten do banco de dados dar o segunte erro... Tipo de erro: Microsoft JET Database Engine (0x80004005) Não foi possível excluir items das tabelas especificadas. /viroumania/admin/excluir_agenda.asp, line 7 e o código e esse <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='c:\Inetpub\grupoviroumania\db\grupoviroumania.mdb'" 'Exclui possiveis músicas da Rádio Excluida SQL = "DELETE * FROM agenda WHERE id = "&Request.QueryString("id")&"" set RS = conn.execute(SQL) 'Redireciona Response.Redirect("agenda.asp?errado=não") rs.close set rs = nothing conn.close set conn=nothing %>

<% regs = 5'Aqui setamos quantos registros serão listados por página pag = request.querystring("pagina") if pag = "" Then pag = 1 end if set rs = createobject("adodb.recordset") set rs.activeconnection = abredb rs.cursortype = 3 'Definimos o cursor a ser utilizado rs.pagesize = regs sql = "UPDATE produtos SET status = 'não' WHERE lancamento = 'sim';" sql = "SELECT * FROM produtos WHERE lancamento <> 'sim';" rs.open sql if rs.eof or rs.bof then response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'></font>" else rs.absolutepage = pag contador = 0 %> <table border="0" width="100%" cellspacing="1"> <% do while not rs.eof and contador < rs.pagesize %> <tr> <td width="100%"><font size="1" face="Verdana" color="#898989"><a href="detalheprod.asp?prod_id=<%=rs("id")%>"><img border="0" src="produto/<%=rs("imagem")%>"><br> <%=rs("nome")%></a></font></td> </tr> <% contador = contador +1 rs.movenext loop %> </table> <% end if rs.close set rs = nothing set conn=nothing %>

Desenvolvi esse codigo, que aparece 3 produtos na pagina inicial, gostaria de sabe como que eu faço para que cada fez que eu abro a página os produtos aparece aleatóriamente. <% regs = 3'Aqui setamos quantos registros serão listados por página pag = request.querystring("pagina") if pag = "" Then pag = 1 end if set rs = createobject("adodb.recordset") set rs.activeconnection = abredb rs.cursortype = 3 'Definimos o cursor a ser utilizado rs.pagesize = regs sql = "UPDATE produtos SET status = 'não' WHERE lancamento = 'sim';" sql = "SELECT * FROM produtos WHERE lancamento <> 'sim';" rs.open sql if rs.eof or rs.bof then response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'></font>" else rs.absolutepage = pag contador = 0 %> <table border="0" width="100%" cellspacing="1"> <% do while not rs.eof and contador < rs.pagesize %> <tr> <td width="100%"><font size="1" face="Verdana" color="#898989"><a href="detalheprod.asp?prod_id=<%=rs("id")%>"><img border="0" src="produto/<%=rs("imagem")%>"><br> <%=rs("nome")%></a></font></td> </tr> <% contador = contador +1 rs.movenext loop %> </table> <% end if rs.close set rs = nothing set conn=nothing %>

Olá milena posso ajudar vc, do que você precisa.

o idd e autonumeração

Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução UPDATE. /smez/admin/alterar_fotoSQL.asp, line 16 da erro no seguinte código rs.open sql, conn, 3, 3

continua com o mesmo erro, no banco de dados esta assim Local = texto data = texto descricao = memorando todos os campos são texto , so o descricao que e memorando

estou com erro ao atualizar o sistema da o seguinte erro Microsoft JET Database Engine error '80040e14' Syntax error in UPDATE statement. /admin/alterar_fotoSQL.asp, line 15 aqui embaixo vai o código fonte. <% Response.expires = 0 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Inetpub\smez\db\fotos.mdb'" IDD = Request.QueryString("IDD") nome = Request("nome") foto = Request("foto") local = Request("local") data = Request("data") img_casa = Request("img_casa") descricao = Request("descricao") SQL = "UPDATE cobertura_foto SET nome='"&nome&"', foto='"&foto&"', local='"&local&"', data='"&data&"', img_casa='"&img_casa&"', descricao='"&descricao&"' WHERE IDD ="&IDD&"" Set Rs = Conn.Execute(SQL) Response.Redirect("cobertura.asp?errado=não") %>

eu tenho uma loja virtual em asp

não entendi o seu problema poderia explicar de novo..

mande o arquivo pelo meu e-mail para eu dar uma olhada assim vejo se posso te ajudar

olá mande um e-mail pra min com o tipo de conexão sergio@smez.com.br

não fuincionou não tem um outro comando.l obrigado pela atenção

tem uma função no photoshop que melhora as sua imagens

tenho um sistema que você cria uma pagina para o formulario e outra pra resposta fica + facil

que tipo de consulta você precisa