Ir para conteúdo
Fórum Script Brasil

koal40

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    103

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por koal40

  3. Formulário De Contato

    em ASP

    Postado

    no seu caso um exemplo:

    <select name="select">

    <option value=".com.br" selected value=".com.br">.com.br</option>

    <option value=".com" value=".com">.com</option>

    <option value=".net" value=".net">.net</option> <-- selecionei esta opção

    <option value=".org" value=".org">.org</option>

    <option value=".info" value=".info">.info</option>

    </select>

    request.form("select")

    o valor será .net

    wink.gif

  6. Formulário De Contato

    em ASP

    Postado

    no radio você coloca o valor no input...

    <input type=radio name=radio value=1> <-- este selecionado

    <input type=radio name=radio value=2>

    resquest.form("radio") ' vai mostrar o numero 1 pois é o valor do campo selecionado... wink.gif

  7. Formulário De Contato

    em ASP

    Postado

    só precisa colocar um request.from... iria ficar assim:

    'aqui só irei mostar o dominio

    corpo = "<html><body>"

    corpo = corpo & "Seu dominio é: <b>" & request.form("select") & "</b>"

    corpo = corpo & "</body></html>"

    ' corpo é a mensagem q você coloca o que quizer... para pegar os dados da pagina anterior você usa request.form("nome_do_campo"), obs: nos campos de alternativa não esqueça de colocar o valor quando selecionado

    set mail = server.createobject("CDONTS.NewMail")

    mail.to = "seu email"

    mail.from = request.form("nome da empresa ou responsável")

    mail.subject = "Contato"

    mail.body = corpo

    mail.bodyformat = 0 ' troque por 1 se quiser q o email não tenha tags

    mail.send

    set mail = nothing

  8. Formulário De Contato

    em ASP

    Postado

    você qr enviar o e-mail tudo em uma pagina?

    tenta fazer o formulário em uma pagina, method POST, action='envia_email.asp'

    PAGINA envia_email.asp

    set mail = server.createobject("CDONTS.NewMail")

    mail.to = "para@quem.manda"

    mail.from = "você"

    mail.subject = "assunto"

    mail.body = "<html><body>Ola</body></html>"

    mail.bodyformat = 0 ' troque por 1 se quiser q o email não tenha tags

    mail.send

    set mail = nothing

  11. Erro '80004005'

    em ASP

    Postado

    tenta usar um caminho fisico (acho q é) invés de ser :

    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\Domains\conecflex.com.br\dados\dados.mdb;"

    usa

    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dados\dados.mdb;"

  15. Help

    em ASP

    Postado

    cadastro em asp é baba...

    primeiro você cria sua pagina de cadastro (aquela pra preencher nome e um monte de coisas), nesta pagina todos campos, tem que ter nome.

    assim faça o method=post e action="validar_cadastro.asp"

    na pagina validar_cadastro.asp:

    (vou dar um exemplo de cadastramento de nome e senha)

    (vou usar um codigo novo... addnew, q é usado para .net, mas também serve)

    <%

nome = request.form("nome")
senha = request.form("senha")

caminho = server.mappath("caminhodoseubancodedados.mdb")
set conexao = server.createobject("ADODB.Connection")
conexao.open "driver={Microsoft Access Driver (*.mdb)}" & caminho

set add = server.createobject("ADODB.RecordSet")
add.open "nomedasuatabela", conexao, 3, 3
add.addnew
add("nome") = nome
add("senha") = senha
add.update

response.write("cadastrado com sucesso!")
%>

    se precisar de algo mais... poste aqui.. laugh.gif

    falou.. wink.gif

  17. Asp + Javascript

    em ASP

    Postado

    numeros aleatorios:

    Session("codigo") = ""
'aqui é a quantidade de numeros q você qr
For i = 1 to 6
Randomize Timer

Session("codigo") = Session("codigo") & CStr(CInt(Rnd * 9 <9 numeros aqui a serem sorteados>))
next

    eles mudam ao atualizar a pagina...

    o numero é a variavel Session("codigo")..

    ou seja

    response.write(Session("codigo") )

    else escreve o numero...

  19. Paginando Dados

    em ASP

    Postado

    eskeci de avisa... no seu while faiz assim:

    while not rs.eof AND contador < rs.pazesize
'aqui sua pagina
contador = contador+1
rs.movenext
wend

    aqui também estava dando este erro... hehe.. falou.. wink.gif

  21. Iniciando Variável...

    em ASP

    Postado

    tenta ao invez de ultilizar o metodo count(), use RsCad_Empresa.recordcount... fikaria assim:

    <%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select id_empresa, UF from Cad_Empresa where Tipo_Empresa='Jornal' group by UF"
set RsCad_Empresa=conexao.execute(sql)

response.write "<table>"
response.write "<tr><td colspan='3' class='conteudo_lista'><< Jornais >></td></tr>"
response.write "<tr><td colspan='3' height='6'> </td></tr>"

Do while not rsCad_Empresa.eof
response.write "<tr><td class='conteudo_lista'>&nbsp;&nbsp;&nbsp;&nbsp;" & RsCad_Empresa("UF") & "</td><td>-</td><td class='conteudo_vermelho'>" & RsCad_Empresa.recordcount & "</td></tr>"

RsCad_Empresa.MoveNext
Loop
Sql="Select Tipo_Empresa from Cad_Empresa where Tipo_Empresa='Jornal' group by Tipo_Empresa"
set RsCad_Empresa=conexao.execute(sql)
response.write "<tr><td class='conteudo_lista'>&nbsp;&nbsp;Total</td><td>-</td><td class='conteudo_vermelho'>" & RsCad_Empresa.recordcount & "</td></tr>"
response.write "</table>"
%>
    OU faça simplesmente um if.... 
    if RsCad_Empresa("total") < 1 then
RsCad_Empresa("total") = 0
end if

  23. Erro Ao Atualizar

    em ASP

    Postado

    hum.... tenta assim:

    SQL = "UPDATE cobertura_foto SET nome='"&nome&"', foto='"&foto&"', local='"&local&"', data='"&data&"', img_casa='"&img_casa&"', descricao='"&descricao&"' WHERE IDD ="&IDD&""

set rs = server.createobject("ADODB.RecordSet")
rs.open sql, conn, 3, 3

×
×
  • Criar Novo...