erro

[Salgado 4]

ASP

1. strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, grupo) "
   
2. strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "')"
   

[Mário Monteiro 179]

é esse grupo que o salgado colocou que tava faltando mesmoveja se funciona agora...

[designmix 0]

galera .. consegui arrumar.... fico assim

 

so que vou precisar da ajuda de vocês.

 

esse form vai ser para 3 sites quando o usuario entra no site 1 o form ja indentifica de que site ele veio, e manda para o email relacionado aquele site .

 

Se nao fui claro me falem

 

 

ASP

[*]<!--#include FILE="bib_conexao.asp"-->

[*]

[*]<%

[*]

[*]

[*]nome = Request.Form("nome")

[*]Sobre_nome = Request.Form("Sobre_nome")

[*]tel = Request.Form("tel")

[*]email = Request.Form("email")

[*]cidade = Request.Form("cidade")

[*]Cod_est = Request.Form("Cod_est")

[*]pais = Request.Form("pais")

[*]login = Request.form("login")

[*]Senha = Request.Form("senha")

[*]Data_nasc = Request.Form("data_nasc")

[*]profissao = Request.Form("profissao")

[*]grupo = Request.Form("grupo")

[*]

[*]

[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, grupo ) "

[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "')"

[*]

[*]

[*]

[*]Response.Buffer = True

[*]

[*]

[*]Dim strBody

[*]Dim objCDOMail

[*]Dim strMyEmailAddress

[*]Dim strCCEmailAddress

[*]Dim strReturnEmailAddress

[*]

[*]

[*]strMyEmailAddress = "jaffar@photopro.com.br"

[*]

[*]

[*]

[*]strReturnEmailAddress = Request.Form("email")

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("nome") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobre Nome: " & Request.Form("Sobre_nome") & vbCrLf & vbCrLf

[*]strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("cod_est") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("data_nasc") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("grupo") & vbCrLf & vbCrLf

[*]

[*]

[*]

[*]

[*]

[*]If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

[*]

[*]strReturnEmailAddress = strMyEmailAddress

[*]End If

[*]

[*]

[*]

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

[*]

[*]

[*]

[*]

[*]objCDOMail.From = Request.Form("Nome") & " " & Request.Form("") & " <" & strReturnEmailAddress & ">"

[*]

[*]

[*]objCDOMail.To = strMyEmailAddress

[*]

[*]

[*]objCDOMail.Cc = strCCEmailAddress

[*]

[*]

[*]objCDOMail.Subject = ""

[*]

[*]

[*]objCDOMail.Body = strBody

[*]

[*]

[*]objCDOMail.MailFormat = CdoMailFormatText

[*]

[*]

[*]objCDOMail.Importance = 1

[*]

[*]

[*]objCDOMail.Send

[*]

[*]

[*]

[*]Set objCDOMail = Nothing

[*]

[*]call abre_conexao

[*]conn.Execute strSQL

[*]call fecha_conexao

[*]%>

[*]

[Mário Monteiro 179]

pega o site de origem com request.servervariables("HTTP_REFERER")

[dark0 0]

você pode usar o que o mario disse, ou na hora em que for direcionar pra pagina de formulario, pode jogar a pagina atual em uma query e pegar ela depoisqual era o erro no codigo anterior?era o numero de campos mesmo?