smez

<script language=JavaScript> <!-- <!-- Begin Limit TextArea function textCounter(field, countfield, maxlimit) { if (field.value.length > maxlimit) // if too long...trim it! field.value = field.value.substring(0, maxlimit); // otherwise, update 'characters left' counter else countfield.value = maxlimit - field.value.length; } // End --> function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function YY_checkform() { //v4.71 //copyright ©1998,2002 Yaromat.com var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at; for (i=1; i<a.length;i=i+4){ if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false} o=MM_findObj(a.replace(/\[\d+\]/ig,"")); o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,"")); v=o.value;t=a[i+2]; if (o.type=='text'||o.type=='password'||o.type=='hidden'){ if (r&&v.length==0){err=true} if (v.length>0) if (t==1){ //fromto ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true} } else if (t==2){ rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true; } else if (t==3){ // date ma=a[i+1].split("#");at=v.match(ma[0]); if(at){ cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]]; dte=new Date(cy,cm,cd); if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true}; }else{err=true} } else if (t==4){ // time ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true} } else if (t==5){ // check this 2 if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")]; if(!o1.checked){err=true} } else if (t==6){ // the same if(v!=MM_findObj(a[i+1]).value){err=true} } } else if (!o.type&&o.length>0&&o[0].type=='radio'){ at = a.match(/(.*)\[(\d+)\].*/i); o2=(o.length>1)?o[at[2]]; if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true} if (t==2){ oo=false; for(j=0;j<o.length;j++){oo=oo||o[j].checked} if(!oo){s+='* '+a[i+3]+'\n'} } } else if (o.type=='checkbox'){ if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true} } else if (o.type=='select-one'||o.type=='select-multiple'){ if(t==1&&o.selectedIndex/1==0){err=true} }else if (o.type=='textarea'){ if(v.length<a[i+1]){err=true} } if (err){s+='* '+a[i+3]+'\n'; err=false} } if (s!=''){alert('Informações incompletas ou contém erro:\t\t\t\t\t\n\n'+s)} document.MM_returnValue = (s==''); } //--> </SCRIPT> <textarea rows="4" name="mensagem" onkeydown=textCounter(this.form.mensagem,this.form.conta_msg,500); onkeyup=textCounter(this.form.mensagem,this.form.conta_msg,500);cols="20" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1" cols="20"></textarea>

pode contar comigo cara qualquer coisa pode me adicionar no MSN caciquevideo@hotmail.com

como eu faço paginação mostrando o produto em duas colunas e 5 linhas

como que eu faço para o codigo ASP cadastrar sozinho um arquivo no banco de dados, tipo assim o codigo asp busca na tabela cliente os dados e cadastra o em os dados sozinho em outra tabela isso todo mes tipo assim tenho uma tabela com os campos cliente vencimento plano teste 5 basico dai ele cadastra na tabela boleto o dados seguintes dados cliente vencimento valor ficaria assim 5/mes atual/ano atual isso todo mes o valor ele buscaria o valor na tabela planos

valeu amigo, deu certo, OBRIGADO

olá você tem o código pra min dar uma olhada

olá pessoal tudo bem, to com uma duvida, tenho um formulario com o seguinte campos numero do contrado cpf senha e no banco de dados tenho cadastrado o numero do contrato e cpf dai o cliente vai cadastrar a senha atraves do formulario. como que eu faço para que o sistema verifica se o cpf e o numero do contrato e do mesmo cliente para cadastrar a senha. AQUI SEGUE O CODIGO QUE DESENVOLVI <% Dim contrato contrato = Request.Form("contrato") senha = request("senha") ' csenha = request("csenha") ' Set conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Inetpub\supermidia\db\supermidia.mdb'" dim seleciona seleciona = "select * from clientes where contrato = '"&contrato&"'" set rs = conexao.execute(seleciona) contrato = session("contrato") 'INCLUI NO BANCO O ENDEREÇO DA FIGURA QUE ESTÁ NO SERVER, DEPOIS É FÁCIL PEGAR A FIGURA! conexao.Execute("update clientes set senha = '"&senha&"' where contrato = '"&contrato&"'") %> <head> <title>::| Super Mídia - TV A CABO |::</title> </head> <p align="center"><b><font size="5" face="Verdana">SUA SENHA FOI SOLICITADA COM SUCESSO</font></b></p>

tenta usar esse código <% data1 = year(now) data2 = year(rs("data")) fdata = DateDiff("d", data2, data1) response.write "<b>" & fdata & " </b>anos" %>

help

sim isso e possivel,

tipo assim to fazendo um site de TV A CABO, dai na página principal mostra o que esta passado na tv, tipo assim SBT 12:00 - chaves GLOBO 12:00 - Jornal HJ Se não estiver cadastrado no banco de dados nada de um seguinte horario ele mostra a proxima programação do horario + proximo.

como assim??? Tem como explicar melhor

<% Dim DataAtual DataAtual=month(date) & "/" & day(date) & "/" & year(Date) HoraAtual=hour(Time) & ":" & minute(time) regs = 10'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 = "SELECT * FROM PROGRAMACAO INNER JOIN CANAIS ON CANAIS.CODIGO = PROGRAMACAO.COD_CANAL WHERE DATA = #" & DataAtual & "# AND HORA = #" & HoraAtual & "# ORDER by codigo ASC" rs.open sql if rs.eof or rs.bof then response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='5'><b>SEM PROGRAMAÇÃO</b></font>" else rs.absolutepage = pag contador = 0 %> <table border="0" width="95%" cellspacing="1"> <%do while not rs.eof and contador < rs.pagesize%> <tr> <td width="3%"><font size="1" face="Verdana"><img border="0" src="canais_p/21.jpg"></font></td> <td width="97%"><font size="1" face="Verdana"><b><font color="#FFFFFF">Nome do canal</font></b><br> <br> <font color="#FFFFFF">12:00 - programa</font></font></td> </tr> <% contador = contador +1 rs.movenext loop %> </table> <% end if rs.close set rs = nothing set conn=nothing %> ele mostra somente a consulta da hora atual, como que eu faço para ele mostrar assim se não tiver cadastrado a hora atual ele mostra a proxima hora + proxima, Como eu faço isso

sim, os nomes estão igual a da tabela

<%If rs("foto") <> "" Then%> <table border="0"> <tr> <td><img src="<%=rs("foto")%>"></td> </tr> </table> <%Else%> <% end if %>

<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=c:\Inetpub\mcgames\db\mcgames2.mdb;Driver={Microsoft Access Driver (*.mdb)}" 'Quando esta pagina é chamada pela primeira vez durante a visita, é criado um novo registro na 'tabela de pedidos, e este tambem é gravado na variavel de sessao If Session("codigo_pedido") = "" Then 'Pequisa o codigo de pedido mais alto existente Set RS_Max = Server.CreateObject("ADODB.Recordset") RS_Max.Open "SELECT MAX(codigo_pedido) AS max_codigo_pedido FROM Pedidos", Conexao 'Acrescenta 1 e grava novo codigo de pedido If IsNull(RS_Max("max_codigo_pedido")) Then novo_codigo_pedido = 1 Else novo_codigo_pedido = RS_Max("max_codigo_pedido") + 1 End If RS_Max.Close Conexao.Execute "INSERT INTO Pedidos (codigo_pedido) VALUES (" & novo_codigo_pedido &")" 'Grava novo codigo do pedido na sessao para que possa ser lido de outras paginas Session("codigo_pedido") = novo_codigo_pedido End If Set RS_Pedido_Item = Server.CreateObject("ADODB.Recordset") If Request.QueryString("codigo_produto") <> "" Then RS_Pedido_Item.Open "SELECT * FROM Pedido_Item WHERE codigo_pedido = "& session("codigo_pedido") & " AND id = " & Request.QueryString("id"), Conexao If RS_Pedido_Item.EOF Then Conexao.Execute "INSERT INTO Pedido_Item (codigo_pedido, id, quantidade) VALUES (" & Session("codigo_pedido") & ", " & Request.QueryString("id") & ", 1)" End If RS_Pedido_Item.Close End If If Request.Form <> "" Then Conexao.Execute "DELETE FROM Pedido_Item WHERE codigo_pedido = " & Session("codigo_pedido") For Each field_name In Request.Form If field_mane <> "B1" And Request.Form(field_name) <> "0" Then comandoSQL = "INSERT INTO Pedido_Item (codigo_pedido, id, quantidade) VALUES (" comandoSQL = comandoSQL & Session("codigo_pedido") & ", " & field_name & ", " & Request.Form(field_name) & ")" Conexao.Execute comandoSQL End If Next 'If filed_name <> "B1" And Request.Form(field_name) <= "0" Then ' Response.Redirect ("vazio.asp") 'End If End If %> <table border="0" width="100%" cellspacing="1"> <tr> <td width="100%" bgcolor="#FFA800"><b><font size="5" face="Verdana" color="#FFFFFF">&nbsp;Carrinho de Compras</font></b></td> </tr> <tr> <td width="100%"> </center> <form method="POST" action="carrocompras.asp" name> <table border="0" width="100%" cellspacing="1"> <tr> <td width="16%"><font size="2" face="Verdana"><b>Foto</b></font></td> <td width="37%"><font size="2" face="Verdana"><b>Produto</b></font></td> <td width="15%"><font size="2" face="Verdana"><b>Preço</b></font></td> <td width="11%"><font size="2" face="Verdana"><b>Quant.</b></font></td> <td width="21%"><font size="2" face="Verdana"><b>Total</b></font></td> </tr> <% LINHA 335 RS_Pedido_Item.Open "SELECT Pedido_Item.*, Produtos.nome, Produto.preço, Produtos.peso, Produtos.img FROM Pedido_Item, Produtos WHERE codigo_pedido = " & Session("codigo_pedido") & " AND Pedido_Item.id=Produtos.id", Conexao 'Se não houverem produtos na cesta,exibe mensagem If RS_Pedido_Item.EOF = true then Response.write ("Não há produtos em sua cesta.") If not RS_Pedido_Item.EOF then RS_Pedido_Item.MoveFirst subtotal = 0 peso_total = 0 While not RS_Pedido_Item.EOF %> <tr> <td width="16%" bgcolor="#F5F5F5"><img src="produtos/<%= RS_Pedido_Item("img")%>"></td> <td width="37%" bgcolor="#F5F5F5"><%= RS_Pedido_Item("nome")%></td> <td width="15%" bgcolor="#F5F5F5"><%= FormatCurrency(RS_Pedido_Item("preço"))%></td> <td width="11%" bgcolor="#F5F5F5"> </table> </table> </table> <dd align="center"><small><input type="TEXT" name="<%= RS_Pedido_Item("id")%>" size="2" maxlength="2" value="<%= RS_Pedido_Item("quantidade") %>"></small></dd> </div> </center></td> <td width="21%" bgcolor="#F5F5F5"><%= FormatCurrency(RS_Pedido_Item("quantidade") * RS_Pedido_Item("preço"))%></td> </tr> <% 'Calcula subtotal e peso total subtotal = subtotal + RS_Pedido_Item("quantidade") * RS_Pedido_Item("preço") peso_total = peso_total + RS_Pedido_Item("quantidade") * RS_Pedido_Item("peso") RS_Pedido_Item.MoveNext Wend RS_Pedido_Item.Close %> <tr> <td width="16%"></td> <td width="37%"></td> <td width="15%"></td> <td width="11%" bgcolor="#E5E5E5"><font face="Verdana" size="1">Subtotal:</font></td> <td width="21%" bgcolor="#E5E5E5"><%= FormatCurrency(subtotal) %></td> </tr> </table><input type="submit" value="Recalcular" name="B1"> </form> </div> <table> O CODIGO E ESSE MAS DA O SEGUINTE ERRO

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. /mc/carrocompras.asp, line 286 set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& id &"")

set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE prod_id="& car_iten_prod &"")

<table border=0 width=100%> <tr width=100%><td width=100% valign=top><h2><font face="Verdana" size="1">Carrinho de Compras</font></h2></td></tr> <tr><td align=right><a href="#" onclick="window.location='listaprod.asp?'+unescape('<%=Request.QueryString("url_comp")%>')"><font face="Verdana" size="1">Voltar para a Loja</font></a></td></tr> <% Dim acao,data_ped,prod_id,prod_quant,car_prod_id,car_prod_quant,temp,arrTemp,iten_id,loop1,car_iten_id,car_iten_quant,car_iten_prod,car_total,car_subtotal acao = Request.querystring("acao") prod_id = Request.querystring("prod_id") prod_quant = Request.querystring("prod_quant") car_iten_id = Request.querystring("car_iten_id") 'Verifica se a quantidade e 0 e troca por 1 If IsEmpty(prod_quant) OR prod_quant=0 Then prod_quant = 1 End If Select Case acao Case "incluir" Dim car_prod_inc,prod_nome,prod_preco temp = "" set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND estoque='S'") prod_nome = car_prod_inc("nome") prod_preco = car_prod_inc("preço") If IsEmpty(Session("iten_id")) Then Session("iten_id") = 1 Else Session("iten_id") = Session("iten_id") + 1 End If iten_id = Session("iten_id") temp = iten_id & "&" & prod_id & "&" & prod_quant If Not (IsEmpty(Session("car_prod_id"))) Then For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) temp = temp & "/" & session("car_prod_id")(loop1) Next End If arrTemp = Split(temp,"/") Session("car_prod_id") = arrTemp %> <tr width=100%><td width=100%><h3><font face="Verdana" size="1">Produto Incluído</font></h3></td></tr> <tr width=100%><td width=100%> <table border=1 width=100% cellspacing="0" style="border-collapse: collapse" cellpadding="0"> <tr width=100%> <th><font face="Verdana" size="1">Id</font></th><th> <font face="Verdana" size="1">Produto</font></th><th> <font face="Verdana" size="1">Valor/Unid</font></th><th> <font face="Verdana" size="1">Quant.</font></th><th> <font face="Verdana" size="1">SubTotal</font></th><th> <font face="Verdana" size="1">Pedido</font></th> </tr><tr width=100% valign=top align=center> <td><font size="1" face="Verdana"><%=iten_id%>&nbsp;</font><td align=left><font size="1" face="Verdana"><%=prod_nome%>&nbsp;</font></td><td> <font face="Verdana" size="1">R$<%=prod_preco%></font></td><td><font size="1" face="Verdana"><%=prod_quant%>&nbsp;</font></td><td> <font face="Verdana" size="1">R$<%=prod_preco*prod_quant%></font></td><td> <font face="Verdana"><a href="carrocompras.asp?acao=excluir&car_iten_id=<%=iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>"> <font size="1" face="Verdana">Cancelar Item</font></a></font></td> </tr></table> <% Case "excluir" 'Exclui o Id do produto no carrinho temp = "" If Not (IsEmpty(Session("car_prod_id"))) Then For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) arrTemp = Split(Session("car_prod_id")(loop1),"&") iten_id = arrTemp(0) car_iten_prod = arrTemp(1) car_iten_quant = arrTemp(2) If Not (iten_id = car_iten_id) Then If temp = "" Then temp = session("car_prod_id")(loop1) Else temp = temp & "/" & session("car_prod_id")(loop1) End If End If Next If temp = "" Then Session.Abandon %><font size="1"> <script>location.reload()</script> <% Else arrTemp = Split(temp,"/") Session("car_prod_id") = arrTemp End IF End If Case "zerar" Session.Abandon %> <script>window.location='./carrocompras.asp'</script> <% End Select 'Exibe Pedido Atual temp = "" %> </font> <tr width=100%><td width=100%><font size="1" face="Verdana">&nbsp;</font></td></tr> <tr width=100%><td width=100%><h3><font face="Verdana" size="1">Pedido Atual</font></h3></td></tr> <tr width=100%><td width=100%> <% If IsEmpty(Session("car_prod_id")) Then %> <h4><font face="Verdana"><font size="1" face="Verdana">Carrinho Vazio</font></h4> <% Else Dim car_prod_nome,car_prod_preco,malha1,car_prod_atual malha1 = "sim" %></font> <table border=1 width=100% cellspacing="0" style="border-collapse: collapse" cellpadding="0"> <tr width=100%><th><font face="Verdana" size="1">Id</font></th><th> <font face="Verdana" size="1">Produto</font></th><th> <font face="Verdana" size="1">Valor/Unid</font></th><th> <font face="Verdana" size="1">Quant.</font></th><th> <font face="Verdana" size="1">SubTotal</font></th><th> <font face="Verdana" size="1">Pedido</font></th></tr> <% For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) arrTemp = Split(Session("car_prod_id")(loop1),"&") car_iten_prod = arrTemp(1) set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE prod_id="& car_iten_prod &" AND estoque='S'") car_prod_nome = car_prod_atual("nome") car_prod_preco = car_prod_atual("preço") arrTemp = Split(Session("car_prod_id")(loop1),"&") car_iten_id = arrTemp(0) car_iten_quant = arrTemp(2) car_subtotal = car_iten_quant * car_prod_preco car_total = car_total + car_subtotal %> <tr width=100% valign=top class=<%=malha1%> align=center><td><font size="1" face="Verdana"><%=car_iten_id%>&nbsp;</font></td><td align=left><font size="1" face="Verdana"><%=car_prod_nome%>&nbsp;</font></td><td> <font face="Verdana" size="1">R$<%=car_prod_preco%></font></td><td><font size="1" face="Verdana"><%=car_iten_quant%>&nbsp;</font></td><td> <font face="Verdana" size="1">R$<%=car_subtotal%></font></td><td> <a href="carrocompras.asp?acao=excluir&car_iten_id=<%=car_iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>"> <font face="Verdana" size="1">Cancelar Item</font></a></td></tr> <% If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If car_prod_atual.Close set car_prod_atual = Nothing Next %> <tr width=100% class=<%=malha1%> align=center><td></td><td></td><td></td><td> <b> <font face="Verdana" size="1">Total =</font> </b></td><td> <b> <font face="Verdana" size="1">R$<%=car_total%></font></b></td><td> <a href="carrocompras.asp?acao=zerar&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>"> <font face="Verdana" size="1">Cancelar Tudo</font></a></td></tr> </table> <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr> <tr width=100% align=center><td width=100%><h3> <a href="fecharpedido.asp?log=in"> <font face="Verdana" size="1">Fechar Pedido</font></a></h3></td></tr> <% End If %> </table> como que eu faço para arrumar

Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'lngCategoriaID ='. /mc/admin/excl_cat.asp, line 7 continua o erro o campo e automuneração

Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'lngCategoriaID ='. /mc/admin/excl_cat.asp, line 7 agora da esse erro

<% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "DELETE * FROM tblCategorias WHERE IngCategoriaIDD ="&Request.QueryString("IngCategoriaID")&"" rs.open sql Response.Redirect("con_cat.asp?excluido=sucesso") rs.close set rs = nothing set conn=nothing %> da o seguinte erro Tipo de erro: Microsoft JET Database Engine (0x80040E10) Nenhum valor foi fornecido para um ou mais parâmetros necessários. /mc/admin/excl_cat.asp, line 7

estou com uma duvida no sistema de upload o sistema ta funcionando <% Response.Expires = -1000 Response.Buffer = True Response.Buffer = TRUE Response.Clear byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- de = UploadRequest.Item("de").Item("Value") para = UploadRequest.Item("para").Item("Value") msg = UploadRequest.Item("msg").Item("Value") contentType = UploadRequest.Item("foto").Item("ContentType") filepathname = UploadRequest.Item("foto").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace(filename,".","_"& rndit &".") value = UploadRequest.Item("foto").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 'FAZ O UPLOAD DAS IMAGENS EM UMA PASTA (/mural). pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("mural/"&filename&"")) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close 'renomeia ao arquivo Function rndit() Dim RndTemp Randomize RndTemp = Rnd * 100 RndTemp= Int(RndTemp) rndit = RndTemp End Function %> <% Dim adoConn Set adoConn = Server.CreateObject("ADODB.Connection") adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Inetpub\smez\db\movimento.mdb'" Dim newcode Set newcode = Server.CreateObject("ADODB.Recordset") newcode.Open "mural", adoConn, 2, 2, 2 newcode.AddNew newcode("de") = de newcode("para") = para newcode("msg") = msg newcode("foto") = filename newcode.Update newcode.close set newcode = nothing %> o erro que esta dando e o seguinte quando a pessoa não envia a foto como eu faço para arrumar isso.

sim

não deu certo