smez

como que eu faço????

b1.onRelease = function(){ loadMovie("pagina.swf",conteudo); ; esse codigo abre outro arquivo SWF no mesmo filme correto agora como que eu faço para ele abrir o arquivo buscar em um certo ponto da linha de tempo exemplo no principal.swf tenho um botão para abrir o produto.swf, so que eu quero que ele abre o produto.swf apartir de um determinado local da linha de tempo.

help

as permissões estão ok e o erro perciste

Porque esta dando este erro Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /cadastro.asp, line 493 <% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" Set objRS_duplic = Server.CreateObject("ADODB.Recordset") objRS_duplic.CursorLocation = 3 objRS_duplic.CursorType = 0 objRS_duplic.LockType = 3 strQ_duplic = "SELECT email FROM vip Where email Like '" & Trim(Request.Form("email")) & "'" objRS_duplic.Open strQ_duplic, objCon, , , &H0001 If Not objRS_duplic.EOF Then If Trim(campo_msg) = "" Then campo_msg = "email" valor_msg = Trim(Request.Form("email")) End If campo_duplicado = true End If objRS_duplic.Close Set objRS_duplic = Nothing Set strQ_duplic = Nothing Set objRS_duplic = Server.CreateObject("ADODB.Recordset") objRS_duplic.CursorLocation = 3 objRS_duplic.CursorType = 0 objRS_duplic.LockType = 3 strQ_duplic = "SELECT usuario FROM vip Where usuario Like '" & Trim(Request.Form("usuario")) & "'" objRS_duplic.Open strQ_duplic, objCon, , , &H0001 If Not objRS_duplic.EOF Then If Trim(campo_msg) = "" Then campo_msg = "usuario" valor_msg = Trim(Request.Form("usuario")) End If campo_duplicado = true End If objRS_duplic.Close Set objRS_duplic = Nothing Set strQ_duplic = Nothing If campo_duplicado = false Then Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM vip Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 objRS.Addnew() If objRS.Fields("bairro").properties("IsAutoIncrement") = False Then objRS("bairro") = Trim(Request.Form("bairro")) End If If objRS.Fields("cep").properties("IsAutoIncrement") = False Then objRS("cep") = Trim(Request.Form("cep")) End If If objRS.Fields("cidade").properties("IsAutoIncrement") = False Then objRS("cidade") = Trim(Request.Form("cidade")) End If If objRS.Fields("comple").properties("IsAutoIncrement") = False Then objRS("comple") = Trim(Request.Form("comple")) End If If objRS.Fields("email").properties("IsAutoIncrement") = False Then objRS("email") = Trim(Request.Form("email")) End If If objRS.Fields("endereco").properties("IsAutoIncrement") = False Then objRS("endereco") = Trim(Request.Form("endereco")) End If If objRS.Fields("estado").properties("IsAutoIncrement") = False Then objRS("estado") = Trim(Request.Form("estado")) End If If objRS.Fields("nasc").properties("IsAutoIncrement") = False Then objRS("nasc") = Trim(Request.Form("nasc")) End If If objRS.Fields("nome").properties("IsAutoIncrement") = False Then objRS("nome") = Trim(Request.Form("nome")) End If If objRS.Fields("numero").properties("IsAutoIncrement") = False Then objRS("numero") = Trim(Request.Form("numero")) End If If objRS.Fields("senha").properties("IsAutoIncrement") = False Then objRS("senha") = Trim(Request.Form("senha")) End If If objRS.Fields("sexo").properties("IsAutoIncrement") = False Then objRS("sexo") = Trim(Request.Form("sexo")) End If If objRS.Fields("signo").properties("IsAutoIncrement") = False Then objRS("signo") = Trim(Request.Form("signo")) End If If objRS.Fields("sobrenome").properties("IsAutoIncrement") = False Then objRS("sobrenome") = Trim(Request.Form("sobrenome")) End If If objRS.Fields("telefone").properties("IsAutoIncrement") = False Then objRS("telefone") = Trim(Request.Form("telefone")) End If If objRS.Fields("usuario").properties("IsAutoIncrement") = False Then objRS("usuario") = Trim(Request.Form("usuario")) End If objRS.Close Set objRS = Nothing %>

como que eu faço para que quando o usuario fazer o cadastro ele enviar um e-mail automatico com os dados do cadatro do usuario.

Como que eu faço o sistema de enviar e-mail tipo assim coloco o meu nome de usuario dai ele verifica no banco de dados o nome de usuario, e-mail e depois envia para o e-mail da pessoa a senha tipo assim e um sistema de esqueci a senha para enviar a senha para o e-mail do usuario.

The Microsoft Jet database engine could not find the object ' SELECT dominio FROM clinte_hospe ORDER BY dominio'. make sure the object exist and that you spell its name and the path name correctly que erro e esse???

tipo assim o Request.Cookies("codigo")&"" e para buscar entro dos cookies

Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'codigo ='. <% '*******inclusao if Request.QueryString("codigo") <> "" and Request.Form("TxtQuantidade") <> "" and Request.QueryString("incluir") = "true" then Dim TbProdutos, strSQLProduto strSQLProdutos="Select * from Produto WHERE CODIGO=" & Request.QueryString("codigo") Set TbProdutos=Server.CreateObject ("ADODB.Recordset") TbProdutos.Open strSQLProdutos, BancoDeDados, adOpenkeySet if TBProdutos.REcordCount = 1 then If Session("SS_ULT_COOKIE")="" then Session("SS_ULT_COOKIE")="1" End if Session("SS_ULT_COOKIE")=Session("SS_ULT_COOKIE") + 1 Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("codigo")=Request.QueryString("codigo") Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("nome")=TBProdutos("nome") Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("qtde")=Request.Form("TxtQuantidade") Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("ValorVenda")=FormatCurrency(TBProdutos("ValorVenda")) Response.Cookies ("brastek_compras_sacola" & Session("SS_ULT_COOKIE"))("total")=FormatCurrency(TBProdutos("ValorVenda") * Request.Form("TxtQuantidade")) End if TbProdutos.Close Set TbProdutos=Nothing BancoDeDados.Close Set BancoDeDados=Nothing Response.Redirect("fechar_pedido.asp") 'atualiza a pagina sem os querystring's '*******exclusão elseif Request.QueryString("nome_cookie") <> "" and Request.QueryString("excluir") = "true" then Response.Cookies(Request.QueryString("nome_cookie")).Expires = Date Response.Redirect("fechar_pedido.asp") 'atualiza a pagina sem os querystring's '*******Alteração elseif Request.QueryString("nome_cookie") <> "" and Request.Form("TxtQuantidade") <> "" and Request.QueryString("alterar") = "true" then Response.Cookies (Request.QueryString("nome_cookie"))("qtde")=Request.Form("TxtQuantidade") Response.Cookies (Request.QueryString("nome_cookie"))("total")=FormatCurrency(Request.Cookies(Request.QueryString("nome_cookie"))("ValorVenda") * Request.Form("TxtQuantidade")) Response.Redirect("fechar_pedido.asp") 'atualiza a pagina sem os querystring's end if %> <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb 'Grava Pedido SQL = "UPDATE Produto SET Qunt = Qunt - 1 WHERE codigo ="&Request.Cookies("codigo")&"" rs.open sql %> erro nessa linha SQL = "UPDATE Produto SET Qunt = Qunt - 1 WHERE codigo ="&Request.Cookies("codigo")&""

Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: '[number: 2]' /sst/fechar_pedido.asp, line 95 <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb 'Lendo informações do pedido Dim codigo,loop1 SQL = "SELECT * FROM produto WHERE codigo="& codigo &"" qtde = Request.Cookies(Session("SS_ULT_COOKIE")("qtde")) arrTemp = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")(loop1),"&") Request.Cookies(Session("SS_ULT_COOKIE")("qtde")) = arrTemp(2) 'Grava Pedido SQL = "UPDATE produto SET qunt = qunt - "& qtde &" WHERE codigo =" &Request.QueryString("codigo")&"" rs.open sql %>

pegar os dados do carrinho de compra e salvar no banco de dados tipo assim, quando ele salva no banco de dados ele pega os produtos do carrinho

<% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb 'Lendo informações do pedido Dim codigo,loop1 For loop1 = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")) to Request.Cookies(Session("SS_ULT_COOKIE")("codigo")) arrTemp = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")(loop1),"&") codigo = arrTemp(1) SQL = "SELECT * FROM produto WHERE codigo="& codigo &"" qtde = Cookies(Session("SS_ULT_COOKIE")("qtde")) arrTemp = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")(loop1),"&") Request.Cookies(Session("SS_ULT_COOKIE")("qtde")) = arrTemp(2) 'Grava Pedido SQL = "UPDATE produto SET qunt = qunt - "& qtde &" WHERE codigo =" &Request.QueryString("codigo")&"" rs.open sql Next Session.Abandon %> linha de erro For loop1 = Request.Cookies(Session("SS_ULT_COOKIE")("codigo")) to Request.Cookies(Session("SS_ULT_COOKIE")("codigo"))

O CODIGO ABAIXO, ELE ENVIA A FOTO E DEPOIS QUE você CADASTRAR A MATERIA ELE CADASTRA A FOTONO BD. PAGINA DE INCLUSAO.ASP <% strCon = "DBQ=c:\www\academiamovimento\dados\movimento.mdb;Driver={Microsoft Access Driver (*.mdb)};" %> <script language="JavaScript" type="text/javascript"> <!-- function abre_janela(width, height, nome) { var top; var left; top = ( (screen.height/2) - (height/2) ) left = ( (screen.width/2) - (width/2) ) window.open('',nome,'width='+width+',height='+height+',scrollbars=no,toolbar=no,location=no,status=no,menubar=no,resizable=no,left='+left+',top='+top); } function recebe_imagem(campo, imagem){ var foto = 'img_' + campo document.form_incluir[campo].value = imagem; document.form_incluir[foto].src = imagem; } function verifica_form(form) { var passed = false; var ok = false var campo for (i = 0; i < form.length; i++) { campo = form[i].name; if (form[i].df_verificar == "sim") { if (form[i].type == "text" | form[i].type == "textarea" | form[i].type == "select-one") { if (form[i].value == "" | form[i].value == "http://") { form[campo].className='campo_alerta' form[campo].focus(); alert("Preencha corretamente o campo"); return passed; stop; } } else if (form[i].type == "radio") { for (x = 0; x < form[campo].length; x++) { ok = false; if (form[campo][x].checked) { ok = true; break; } } if (ok == false) { form[campo][0].focus(); form[campo][0].select(); alert("Informe uma das opcões"); return passed; stop; } } var msg = "" if (form[campo].df_validar == "cpf") msg = checa_cpf(form[campo].value); if (form[campo].df_validar == "cnpj") msg = checa_cnpj(form[campo].value); if (form[campo].df_validar == "cpf_cnpj") { msg = checa_cpf(form[campo].value); if (msg != "") msg = checa_cnpj(form[campo].value); } if (form[campo].df_validar == "email") msg = checa_email(form[campo].value); if (form[campo].df_validar == "numerico") msg = checa_numerico(form[campo].value); if (msg != "") { if (form[campo].df_validar == "cpf_cnpj") msg = "informe corretamente o número do CPF ou CNPJ"; form[campo].className='campo_alerta' form[campo].focus(); form[campo].select(); alert(msg); return passed; stop; } } } passed = true; return passed; } function desabilita_cor(campo) { campo.className='campos_formulario' } function checa_numerico(String) { var mensagem = "Este campo aceita somente números" var msg = ""; if (isNaN(String)) msg = mensagem; return msg; } function checa_email(campo) { var mensagem = "Informe corretamente o email" var msg = ""; var email = campo.match(/(\w+)@(.+)\.(\w+)$/); if (email == null){ msg = mensagem; } return msg; } function checa_cpf(CPF) { var mensagem = "informe corretamente o número do CPF" var msg = ""; if (CPF.length != 11 || CPF == "00000000000" || CPF == "11111111111" || CPF == "22222222222" || CPF == "33333333333" || CPF == "44444444444" || CPF == "55555555555" || CPF == "66666666666" || CPF == "77777777777" || CPF == "88888888888" || CPF == "99999999999") msg = mensagem; soma = 0; for (y=0; y < 9; y ++) soma += parseInt(CPF.charAt(y)) * (10 - y); resto = 11 - (soma % 11); if (resto == 10 || resto == 11)resto = 0; if (resto != parseInt(CPF.charAt(9))) msg = mensagem; soma = 0; for (y = 0; y < 10; y ++) soma += parseInt(CPF.charAt(y)) * (11 - y); resto = 11 - (soma % 11); if (resto == 10 || resto == 11) resto = 0; if (resto != parseInt(CPF.charAt(10))) msg = mensagem; return msg; } function checa_cnpj(s) { var mensagem = "informe corretamente o número do CNPJ" var msg = ""; var y; var c = s.substr(0,12); var dv = s.substr(12,2); var d1 = 0; for (y = 0; y < 12; y++) { d1 += c.charAt(11-y)*(2+(y % 8)); } if (d1 == 0) msg = mensagem; d1 = 11 - (d1 % 11); if (d1 > 9) d1 = 0; if (dv.charAt(0) != d1)msg = mensagem; d1 *= 2; for (y = 0; y < 12; y++) { d1 += c.charAt(11-y)*(2+((y+1) % 8)); } d1 = 11 - (d1 % 11); if (d1 > 9) d1 = 0; if (dv.charAt(1) != d1) msg = mensagem; return msg; } function mascara_data(data){ var mydata = ''; mydata = mydata + data; if (mydata.length == 2){ mydata = mydata + '/'; } if (mydata.length == 5){ mydata = mydata + '/'; } return mydata; } function verifica_data(data) { if (data.value != "") { dia = (data.value.substring(0,2)); mes = (data.value.substring(3,5)); ano = (data.value.substring(6,10)); situacao = ""; if ((dia < 01)||(dia < 01 || dia > 30) && ( mes == 04 || mes == 06 || mes == 09 || mes == 11 ) || dia > 31) { situacao = "falsa"; } if (mes < 01 || mes > 12 ) { situacao = "falsa"; } if (mes == 2 && ( dia < 01 || dia > 29 || ( dia > 28 && (parseInt(ano / 4) != ano / 4)))) { situacao = "falsa"; } if (situacao == "falsa") { data.focus(); data.select(); alert("Data inválida!"); } } } //--> </script> <% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" If campo_duplicado = false Then Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM mural Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 objRS.Addnew() If objRS.Fields("de").properties("IsAutoIncrement") = False Then objRS("de") = Trim(Request.Form("de")) End If If objRS.Fields("foto").properties("IsAutoIncrement") = False Then objRS("foto") = Trim(Request.Form("foto")) End If If objRS.Fields("msg").properties("IsAutoIncrement") = False Then objRS("msg") = Trim(Request.Form("msg")) End If If objRS.Fields("para").properties("IsAutoIncrement") = False Then objRS("para") = Trim(Request.Form("para")) End If objRS.Update objRS.Close Set objRS = Nothing %> <BR><B>Registro salvo</B><BR>O registro foi cadastrado com sucesso.<BR><BR> <% Else %> <BR><B>Atenção!</B><BR><BR> O campo <%=campo_msg%> <i>"<%=valor_msg%>"</i> não pode ser salvo, pois já está cadastrado na tabela. <BR><A href="java script:history.go(-1)">Clique aqui</a> para voltar ao cadastro</A><BR><BR> <% End If objCon.Close Set objCon = Nothing Else Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 2 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM mural Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 %> <B>Incluir um novo registro</B><BR>Preencha corretamente os dados abaixo:<BR> <form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return verifica_form(this);"> <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario> <TR class=titulo_campos><TD>de<br> <%If objRS.Fields("de").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="de" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>foto (URL)<br> <INPUT type="hidden" name="foto" value="imagens/noimage.gif" df_verificar="sim"> <DIV id="Layer1" style="width: 1px; height:1px; visibility: visible; border:1px solid black"><img name="img_foto" src="imagens/noimage.gif" border="0"></DIV> › <a href="df_upload_imagens.asp?campo=<%=Server.URLEncode("foto")%>&pasta=<%=Server.URLEncode("imagens_foto")%>" onClick="abre_janela(250, 300, 'alterar_imagem')" target="alterar_imagem" class="texto_pagina">Enviar Imagem</a> </TD></TR> <TR class=titulo_campos><TD>msg<br> <TEXTAREA style="width=350;height=50" name="msg" df_verificar="sim" onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA> </TD></TR> <TR class=titulo_campos><TD>para<br> <%If objRS.Fields("para").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="para" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> </TABLE> <input type="submit" name="submit" value="Enviar" class=botao_enviar> </form> <% objCon.Close Set objCon = Nothing End If %> PAGINA df_upload_imagens.asp <% @ LANGUAGE="VBSCRIPT" %> <script language=javascript> function envia_imagem(imagem) { self.opener.recebe_imagem('<%=Request("campo")%>', imagem); window.close(); } </script> </HEAD> <BODY class="texto_pagina"> <% Sub BuildUploadRequest(RequestBin) PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition")) Pos = InstrB(Pos,RequestBin,getByteString("name=")) PosBeg = Pos+6 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename=")) PosBound = InstrB(PosEnd,RequestBin,boundary) If PosFile<>0 AND (PosFile<PosBound) Then PosBeg = PosFile + 10 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) UploadControl.Add "FileName", FileName Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:")) PosBeg = Pos+14 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) UploadControl.Add "ContentType",ContentType PosBeg = PosEnd+4 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg) Else Pos = InstrB(Pos,RequestBin,getByteString(chr(13))) PosBeg = Pos+4 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) End If UploadControl.Add "Value" , Value UploadRequest.Add name, UploadControl BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary) Loop End Sub Function getByteString(StringStr) For i = 1 to Len(StringStr) char = Mid(StringStr,i,1) getByteString = getByteString & chrB(AscB(char)) Next End Function Function getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin) getString = getString & chr(AscB(MidB(StringBin,intCount,1))) Next End Function pasta_imagens = "imagens/" & Request("pasta") pasta = Server.URLEncode(Request("pasta")) campo = Server.URLEncode(Request("campo")) Set objFS = Server.CreateObject("Scripting.FileSystemObject") If Not objFS.FolderExists(Server.MapPath(pasta_imagens)) Then objFS.CreateFolder(Server.MapPath(pasta_imagens)) End if If Request("enviar") <> "" Then Set objFS = Nothing byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("blob").Item("Value") If Lcase(Right(filename,3)) = "jpg" Or Lcase(Right(filename,3)) = "gif" then Set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists( Server.mappath(pasta_imagens & "\" & filename)) Then %> <script language=javascript> alert("Erro ao enviar imagem, o arquivo '<%=filename%>' já existe na pasta '<%=pasta_imagens%>' do seu site") enviar.disabled = false; </script> <% Else If LenB(value) > 200000 then %> <script language=javascript> alert("Erro ao enviar a imagem, o tamanho do arquivo deve ser menor que 200Kb") enviar.disabled = false; </script> <% Else %> <strong>Aguarde o envio da imagem...</strong><br> <input name="progress" value="0% enviado" style="border:none"> <table width="100" border="0" cellspacing="0" cellpadding="0" style="border: 1px inset"> <tr> <td><input name="barra" style="border:none; background-color: orangered; height: 10; width:1" readonly=""></td> <td></td> </tr> </table> <% Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile( Server.mappath(pasta_imagens & "\" & filename)) progress = 0 n = 0 For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) progress = Fix((i * 100) / LenB(value)) If n <> progress then n = progress %> <script language=javascript>progress.value = "<%=n%>% enviado"</script> <script language=javascript>barra.style.width = "<%=n%>"</script> <% End if Next MyFile.Close %> <script language=javascript> envia_imagem('<%=pasta_imagens & "/" & filename%>'); </script> <% End If Set objFS = Nothing End if Else %> <script language=javascript> alert("Erro ao enviar a imagem, lembre-se que ela deve possuir extensão JPG ou GIF"); enviar.disabled = false; </script> <% End If End If %> <FORM METHOD="post" ENCTYPE="multipart/form-data" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>?campo=<%=campo%>&pasta=<%=pasta%>&enviar=sim" onSubmit="enviar.disabled=true"> Enviar uma nova imagem<BR> <INPUT type="file" name="blob" class="campos_formulario" style="width: 100%"><BR> <INPUT type="submit" name="enviar" value="Enviar" class="botao_enviar"><br> <i>(A imagem deve ter nó máximo 200Kb)</i> </FORM> Selecionar uma imagem enviada anteriormente<BR> <DIV class="titulo_campos" style="width:100%; height:175px; visibility: visible; overflow: auto; border:1px solid"> <% lista_imagens pasta_imagens, "gif,jpg" Function lista_imagens( strFolder, tipo ) If Trim( Request.QueryString("folder") ) <> "" Then strFolder = Request.ServerVariables("APPL_PHYSICAL_PATH") & Request.QueryString("folder") End If Dim Folder, File Dim ObjFS, objRootFolder Set ObjFS = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = ObjFS.GetFolder(Server.MapPath(strFolder)) For Each File in objFolder.files tipo = Replace(tipo, ",", "") For i = 1 to len(tipo) step 3 If Right(File, 3) = Mid(tipo, i, 3) Then Response.Write " <a href=""java script: envia_imagem('" & StrFolder& "/" & File.Name & "')"" class=""texto_pagina"">" & File.Name & "</a><BR>" & vbcrlf End If Next Next Response.Write "</td></tr></table>" & vbcrlf Set objFolder = Nothing Set Folder = Nothing End Function %> </DIV> </BODY> </HTML>

<%'limpando set foi(9) = nothing set numero = nothing set controle = nothing end sub Sub procura() var1="4" var2="5" var3="6" var4="7" var5="8" LiNHA de ERRO rs.open sql, db, 3, 3 controle=0 randomize numero = (RND * rs.recordcount)\1 do while numero <> controle controle=controle+1 rs.MoveNext loop end sub %> da o seguinte erro.

olá, Como que eu faço para que quando usar WHERE ele so vai mostrar o que eu definir, tipo assim WHERE categoria='xbox' dai ele so vai mostrar os produtos desta categoria, correto agora como que eu faço para selecionar somente a categoria que eu não quero que apareça...

GOSTARIA DE SABER SE TEM COMO USAR O INNER JOIN EM + DE 2 TABELAS. SE TIVER COMO QUE EU FAÇO

<% 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 coluna INNER JOIN colunista ON colunista.cod_colunista = coluna.coluna ORDER BY coluna.data DESC" rs.open sql if rs.eof or rs.bof then response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'>Não há programação!</font>" else rs.absolutepage = pag contador = 0 %> <%do while not rs.eof and contador < rs.pagesize%> <tr> <td width="100%"> <div align="center"> <center> <table border="0" width="97%" cellspacing="0" cellpadding="0"> <tr> <td width="1%"><a href="ver_coluna.asp?cod_coluna=<%=rs("cod_coluna")%>"><img border="0" src="coluna/foto/<%=rs("foto")%>"></a></td> <td width="97%" background="coluna/fundo.gif"><b><font face="Verdana" size="4"><%=rs("nome")%></font></b><font size="1" face="Verdana"><br> <%=day(rs("data"))%>/<%=month(rs("data"))%>/<%=year(rs("data"))%><br> <br> <%=rs("email")%><br> <br> <%=rs("titulo")%></font></td> <td width="2%"><img border="0" src="coluna/4.gif"></td> </tr> </table> </center> </div> </td> </tr> <% contador = contador +1 rs.movenext loop %> <% end if rs.close set rs = nothing set conn=nothing %> o codigo esta funcionando normal so que eu queria assim quando cadastrar na tabela colunista que ele duplica porque o codigo que esta assim tanto faz cadastrar no colunista e no coluna ele duplica, tipo assim vai aparecer todos os colunistas e vai buscar na tabela coluna somente o titulo da coluna da ultima coluna cadastrada e colocar debaixo do nome do colunista como q eu faço isso

<% regs = 30'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 cobertura WHERE ver=TRUE order by data DESC" rs.open sql if rs.eof or rs.bof then response.write "" else rs.absolutepage = pag contador = 0 %> <table border="0" width="100%" cellspacing="1"> <%do while not rs.eof and contador < rs.pagesize%> <%If rs("data") <> varMes Then varMes = rs("data")%> <tr> <td width="100%" bgcolor="#F3F3F3"><font size="1" face="Verdana"><b> <%=day(rs("data"))%>-<%=month(rs("data"))%>-<%=YEAR(RS("DATA"))%></b></font></td> </tr> <%End IF%> <tr> <td width="100%"><font size="1" face="Verdana"><a href="cobertura.asp?codigo=<%=rs("codigo")%>&mes=<%=month(rs("data"))%>&ano=<%=year(rs("data"))%>"> <%=rs("nome")%></a></font></td> </tr> <% contador = contador +1 rs.movenext loop %> </table> <% end if rs.close set rs = nothing set conn=nothing %> Acho que esse serve p/ vc, qualquer duvida pode me adicionar no MSN caciquevideo@hotmail.com

Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03F6) 'End' esperado /naphoto/cinema.asp, line 135 <% regs = 10 pag = request.querystring("pagina") if pag = "" then pag = 1 end if set rs = server.CreateObject("ADODB.Recordset") set rs.activeconnection = abredb rs.cursortype = 3 rs.pagesize = regs sql = "SELECT * FROM cinema" rs.open sql if rs.eof or rs.bof then response.write "ddd" else rs.absolutepage = pag contador = 0 %> <div align="center"> <center> <% regs = 10 pag = request.querystring("pagina") set rs = server.CreateObject("ADODB.Recordset") set rs.activeconnection = abredb rs.cursortype = 3 rs.pagesize = regs sql = "SELECT * FROM cinema ORDER by cod_cinema DESC" rs.open sql if rs.eof or rs.bof then response.write "ddd" else rs.absolutepage = pag contador = 0 %> <table width="85" border="0" cellspacing="4" cellpadding="4"> <% for x = 1 to rs.pagesize if contador = 0 then response.write "<tr>" end if %> <%do while not rs.eof and contador < rs.pagesize%> <td align="center" width="81"> <div align="center"> <center> <table width="80" border="0" cellspacing="1"> <tr> <td width="77" align="center" valign="middle"><img src="cinema/images/<%=rs("foto")%>" border="0"></td> </tr> <tr> <td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1"><font color="#FFFFFF"><%=rs("titulo")%></font></font></td> </tr> </table> </center> </div> </td> <% contador = contador +1 rs.movenext loop %> <% contador = contador+1 if contador = 6 then response.write "</tr>" contador=0 end if next %> </table> </center> </div> <% end if rs.close set rs = nothing set conn=nothing %> onde ta o erro

Como que eu faço, quando uma pessoa faz o cadastro no site ele enviar um e-mail para o usuario . com os dados do cadastro.

da esse erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x558 Thread 0x3f8 DBC 0x1060ffc Jet' do Registro. esse e a linha de erro Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon

sim, não funciona

o meu codigo de paginação está funcionando mais so mostra até a página 5 sendo que tem + paginas onde que esta o erro?????? <% set dados = server.CreateObject("ADODB.Recordset") set dados.activeconnection = abredb selecao = "SELECT * FROM produtos WHERE disp='s' AND url='xbox'" dados.CursorType = 3 dados.CursorLocation = 3 dados.open(selecao) pagina = Request.QueryString("pagina") if pagina = "" then pagina = 1 end if dados.absolutepage=pagina dados.pagesize = 30 cont=0 for x = 1 to dados.pagesize if cont = 0 then response.write "<tr>" end if %> <td align="center" width="81"> <div align="center"> <center> <table width="80" border="0" cellspacing="1"> <tr> <td width="77" align="center" valign="middle"><a href="detalhe.asp?prod_id=<%=dados("id")%>"><img src="../produtop/<%=dados("imagem")%>" border="0" width="77" height="110"></a></td> </tr> <tr> <td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1"><a href="detalhe.asp?prod_id=<%=dados("id")%>"><%=dados("nome")%></a></font></td> </tr> </table> </center> </div> </td> <% cont = cont+1 if cont = 6 then response.write "</tr>" cont=0 end if dados.movenext next %> </table> <p align="center"> <br> <% if strcomp(pagina,dados.PageCount) <> 0 then %> <font size="1" face="Verdana"> <a href="paginacao.asp?pagina=<%=pagina+1%>">Próximo</a> </font> <% end if %><font size="1" face="Verdana"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Pagina Atual: <%=pagina%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font> <% if pagina > 1 then %> <a href="paginacao.asp?pagina=<%=pagina-1%>"><font size="1" face="Verdana">Anterior </font></a> <% end if %>

esqueci de postar isso esse comando e mostra um campo com quantos caracteres faltam para ser digitados <input type="text" readOnly maxLength=3 size=4 value=500 style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1" id="conta_msg" name="conta_msg">