smez

como que eu faço para arrumar, no banco de dados o campo data esta como data/hora

esta dando o seguinte erro na hora da consulta Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /emaisfestas/vagenda.asp, line 94 <% data=Request.Querystring("data") regs = 4 '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 agenda WHERE data='" & data & "'" rs.open sql if rs.eof or rs.bof then response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'>Não a festa hoje!</font>" else rs.absolutepage = pag contador = 0 Function to_html(s_string) to_html = Replace(s_string, vbcrlf, "<br>") to_html = Replace(to_html, "&nbsp;", "") to_html = Replace(to_html, Chr(9),"&nbsp;&nbsp;") to_html = Replace(to_html, ":)", "<img src=""img/smiley1.gif"" width=""17"" height=""17"">") to_html = Replace(to_html, ";)", "<img src=""img/smiley2.gif"" width=""17"" height=""17"">") to_html = Replace(to_html, ":o", "<img src=""img/smiley3.gif"" width=""17"" height=""17"">") to_html = Replace(to_html, ":D", "<img src=""img/smiley4.gif"" width=""17"" height=""17"">") to_html = Replace(to_html, ":errr:", "<img src=""img/smiley5.gif"" width=""17"" height=""17"">") to_html = Replace(to_html, ":(", "<img src=""img/smiley6.gif"" width=""17"" height=""17"">") to_html = Replace(to_html, "X(", "<img src=""img/smiley7.gif"" width=""17"" height=""17"">") 'to_html = Replace(to_html, "expressao", "susbtituida por") to_html = Replace(to_html, "marvel", "<a href=""http://www.marvel.com"" target=""_blank"">Marvel</a>") to_html = Replace(to_html, "dccomics", "<a href=""http://www.dccomics.com"" target=""_blank"">DC Comics</a>") End Function %> onde esta o erro

como fazer uma busca detalhada igual a esse site http://www.comprecar.com.br/ tipo busca veiculo,tipo, valor de ___ate___

windows

eae galera beleza, estou com uma duvida, estou usando uma conexão via cable de 8MB eu configurei meu computador para hospedar sites, agora n estou conseguindo configurar a "port 21" que e FTP como que eu configuro obrigado

eae galera beleza, estou com uma duvida, estou usando uma conexão via cable de 8MB eu configurei meu computador para hospedar sites, agora n estou conseguindo configurar a "port 21" que e FTP como que eu configuro obrigado

posso enviar ele via MSN e so me add caciquevideo@hotmail.com

o sistema de album de fotos que eu tenho e igual a esse www.tammypastelaria.com.br www.trupeaxe.com.br www.academiamovimento.com se o sistema não for desse jeito , me explica melhor como seria pra min fazer aqui. se você estiver MSN me add. caciquevideo@hotmail.com

o codigo de cadastro que eu tenho e esse, fica na mesma pagina do formulario, onde que eu coloca a função???? <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb etapa = request("etapa") select case etapa case 1 titulocolunista = request.Form("titulocolunista") nome = request.Form("nome") sexo = request.Form("sexo") relacionamento = request.Form("relacionamento") nasc = request.Form("nasc") interesse = request.Form("interesse") filhos = request.Form("filhos") humor = request.Form("humor") estilo = request.Form("estilo") fumo = request.Form("fumo") bebo = request.Form("bebo") animal = request.Form("animal") moro = request.Form("moro") cidade_natal = request.Form("cidade_natal") quem_sou = request.Form("quem_sou") usuario = request.Form("usuario") senha = request.Form("senha") email = request.Form("email") 'INSERE OS DADOS NO BANCO DE DADOS Set conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\home\baladeirossp\databases\baladeiros.mdb'" insert = "insert into usuario" insert = insert & "(titulocolunista, nome, sexo, relacionamento, nasc, interesse, filhos, humor, fumo, bebo, animal, moro, cidade_natal, pagina_web, quem_sou, usuario, senha, email)" insert = insert & " values (" & "'" & Request.Form("titulocolunista") & "', " & "'" & Request.Form("nome") & "', " & "'" & Request.Form("sexo") & "', " & "'" & Request.Form("relacionamento") & "', " & "'" & Request.Form("nasc") & "', " & "'" & Request.Form("interesse") & "', " & "'" & Request.Form("filhos") & "', " & "'" & Request.Form("humor") & "'," & "'" & Request.Form("fumo") & "', " & "'" & Request.Form("bebo") & "', " & "'" & Request.Form("animal") & "', " & "'" & Request.Form("moro") & "', " & "'" & Request.Form("cidade_natal") & "', " & "'" & Request.Form("pagina_web") & "', " & "'" & Request.Form("quem_sou") & "', " & "'" & Request.Form("usuario") & "', " & "'" & Request.Form("senha") & "', " & "'" & Request.Form("email") & "'" & ")" conexao.Execute(insert) dim seleciona seleciona = "select * from usuario where usuario = '"&usuario&"'" set rs = conexao.execute(seleciona) Response.Cookies("usuario") = rs("usuario") Response.Cookies("codigo") Response.Cookies("usuario") Session("codigo") = rs("codigo") Session("foto") = rs("foto") Session("nome") = rs("nome") Session("usuario") = rs("usuario") Session("senha") = rs("senha") Session("email") = rs("email") Session("titulocolunista") = rs("titulocolunista") Session("cadastro") = rs("cadastro") Session("sexo") = rs("sexo") Session("relacionamento") = rs("relacionamento") Session("nasc") = rs("nasc") Session("cidade") = rs("cidade") Session("estado") = rs("estado") Session("cep") = rs("cep") Session("pais") = rs("pais") Session("interesse") = rs("interesse") Session("filhos") = rs("filhos") Session("humor") = rs("humor") Session("fumo") = rs("fumo") Session("bebo") = rs("bebo") Session("estilo") = rs("estilo") Session("animal") = rs("animal") Session("moro") = rs("moro") Session("cidade_natal") = rs("cidade_natal") Session("pagina_web") = rs("pagina_web") Session("quem_sou") = rs("quem_sou") Session("acesso") = rs("acesso") Session("paixao") = rs("paixao") Session("esportes") = rs("esportes") Session("atividades") = rs("atividades") Session("livros") = rs("livros") Session("musica") = rs("musica") Session("programa_tv") = rs("programa_tv") Session("filmes") = rs("filmes") Session("MSN") = rs("MSN") Session("tel_res") = rs("tel_res") Session("celular") = rs("celular") Session("endereco") = rs("endereco") Session("cidade") = rs("cidade") Session("estado") = rs("estado") Session("cep") = rs("cep") Session("pais") = rs("pais") Session("atencao") = rs("atencao") Session("altura") = rs("altura") Session("olhos") = rs("olhos") Session("cabelo") = rs("cabelo") Session("fisico") = rs("fisico") Session("aparencia") = rs("aparencia") Response.Redirect("enviar_cadastro.asp?sucesso=s") end select %>

tenho um sistema de cadastro de usuario com logum e senha como que eu faço para evitar que outro usuario se cadastre com o mesmo nome de usuario que já tem no banco de dados, tipo assim, antes de salvar os dados ele verefica se já exista um nome de usuario cadastro, se existir ele voltar para a tela de cadastro, senão ele faz o cadastro obrigado...

eu tenho um host na minha casa,

eu tenho o sistema

consegui configurar minha maquina para hospedar site e todas da internet poderem ver o site Obrigado Galera pela ajuda. Se alguém precisar de um espaço pode entrar em contato. MSN: caciquevideo@hotmail.com

MBLmarcio estou querndo sim montar um host aqui em casa, se estiver interessado podemos montar junto kara n consegui configurar aqui, você tem MSN

funcionou no xp queria saber como que eu faço agora para configurar cada endereço de url (site) em pasta separada tipo assim www.virou.ppg.br ele abre a pasta que está configurada para esse site. igual na internet mesmo, quando digita uma url ele abre um determinado site. outra coisa como que eu faço para configurar para que os usuarios tenha acesso ao ftp

minha conexão e ADSL/CABLE de 8Mb e o IP e fixo

Como que eu façao para hospedar o site no meu computador e que toda internet possa ver. Estou usando windows xp sp2 e o iis como que eu faço, para quando digitar o endereço de um determinado site busca no meu computador.

SQL = "SELECT * FROM programa INNER JOIN canal ON programa.canal = canal.codigo WHERE programa.data >=WeekDay(Date()) AND final >= #" & FormatDateTime(Time(),vbshorttime) &"# ORDER By data, final DESC" eu fiz essa linha de comando mas n está funcionando correto to tentando fazer assim ele mostrar na tela somente o cadastra da semana tipo assim hj e sexta-feira dai ele mostar todos os cadastros de sexta-feira como que eu faço????

não, o arquivo asp fica na raiz do servidor e a imagem fica dentro de uma pasta

help

PAGINA ANTERIOR <% if pag - 1 < 1 then else response.write "<a href='pagina.asp?pagina="&pag - 1&"'>pagina anterior</a>" end if %> PROXIMA PAGINA <% if pag + 1 > rs.pagecount then else response.write "<a href='pagina.asp?pagina="&pag + 1&"'>proxima pagina</a>" end if %> ESCOLHER PAGINA <%for i = 1 to rs.pagecount if i = cint(pag) then response.write "<b>"& i &"</b>" else response.write "<a href='pagina.asp?pagina=" & i & "'>" & i & "</a>" end if next%>

Eu fiz o seguinte codigo pra enviar a foto pelo e-mail ele envia normal, so que n aparece a foto, onde esta o erro?? <% 'recupera dados do form seu_nome = request.form("seu_nome") seu_email = request.form("seu_email") nome_amigo = request.form("nome_amigo") email_amigo = request.form("email_amigo") foto = request.form("foto") id_foto = request.form("id_foto") set rs = createObject("adodb.Recordset") set rs.activeconnection = abredb SQL = "SELECT * FROM ver_cobertura WHERE id_foto ='"& id_foto &"'" rs.open sql 'Monta Mensagem HTML ="<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Tammy Pastelaria » Foto </title>" HTML = HTML & "</head>" HTML = HTML & "<body topmargin='0' leftmargin='0' background='http://www.tammypastelaria.com.br/novo/images/fundo.gif'>" HTML = HTML & "<div align='center'><center>" HTML = HTML & "<table border='0' width='100' cellspacing='0' cellpadding='0'>" HTML = HTML & "<tr><td width='100%'><img border='0' src='http://www.tammypastelaria.com.br/novo/images/topo.jpg'></td></tr>" HTML = HTML & "<tr><td width='100%' background='http://www.tammypastelaria.com.br/novo/images/meio.jpg'><font size='1' face='Verdana'>&nbsp;</font></td></tr>" HTML = HTML & "<tr><td width='100%' background='http://www.tammypastelaria.com.br/novo/images/meio.jpg'><font size='1' face='Verdana'>&nbsp;</font></td></tr>" HTML = HTML & "<tr><td width='100%' background='http://www.tammypastelaria.com.br/novo/images/meio.jpg'><div align='center'><center>" HTML = HTML & "<table border='0' width='100%' cellspacing='1'>" HTML = HTML & "<tr><td width='33%'><img border='0' src='http://www.tammypastelaria.com.br/novo/logo.jpg'></td>" HTML = HTML & "<td width='67%'>" HTML = HTML & "<font size=""1"" face=""verdana"">" HTML = HTML & "&nbsp;&nbsp;Ola&nbsp;<b>" & nome_amigo & "</B>,&nbsp;" & seu_nome &"&nbsp;mandou uma foto para você!<br>" HTML = HTML & "&nbsp;&nbsp;<img src='http://www.tammypastelaria.com.br/novo/cobertura/" & rs("foto") & "'><BR>"HTML = HTML & "</td></tr></table></center></div></td></tr>" HTML = HTML & "<tr><td width='100%' background='http://www.tammypastelaria.com.br/novo/images/meio.jpg'>&nbsp;</td></tr>" HTML = HTML & "<tr><td width='100%' background='http://www.tammypastelaria.com.br/novo/images/meio.jpg'>&nbsp;</td></tr>" HTML = HTML & "<tr><td width='100%'><img border='0' src='http://www.tammypastelaria.com.br/novo/images/baixo.jpg'></td></tr></table>" HTML = HTML & "</center>" HTML = HTML & "</div>" HTML = HTML & "</body>" HTML = HTML & "</html>" 'cria objeto de email (vou usar CDONTS) Set Mail = CreateObject("CDONTS.NewMail") Mail.From = "sergio@upertechsolucoes.com.br" Mail.To = email_amigo Mail.Subject = "TAMMY PASTELARIA: Foto" Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.Body = HTML Mail.Send %>

Eu fiz assim mas da erro na linha que esta em vermelho <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT * FROM equipe WHERE codigo = "&Request.QueryString("codigo")&"" rs.open sql Set fso = CreateObject("Scripting.FileSystemObject") Set aFile = fso.GetFile("../equipe/" & rs("foto")) aFile.Delete SQL = "DELETE * FROM equipe WHERE codigo = "&Request.QueryString("codigo")&"" rs.open sql set rs = nothing set conn=nothing Response.Redirect("equipe.asp?deletado=sucesso") %>

O meu código e esse como que eu coloco o FSO para apagar o registro e a imagem <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "DELETE * FROM equipe WHERE codigo = "&Request.QueryString("codigo")&"" rs.open sql set rs = nothing set conn=nothing Response.Redirect("equipe.asp?deletado=sucesso") %>

como que eu faço para excluir um registro de banco de dados e ao mesmo tempo ele deletar a imagem corresponde a este registro?