Pagina "multifuncional"

[[ GuTo ]]

Fala Galera,

estou com umas dúvidas, acho q tem como vocês me ajudarem.

Quero criar uma página obrigado.asp, q dependendo da página de onde ela veio seja exibida uma msg personalizada. Ex.

Caso o cara tenha submetido o form da página de contato, q em seguida foi redirecionado pra esta página obrigado.asp, então mande como resposta a ele: Seu e-mail foi enviado com sucesso;

Caso o cara tenha submetido o form da página de indicação, q em seguida foi redirecionado pra esta página obrigado.asp, então mande como resposta a ele:

Você indicou/recomendou nosso site com sucesso a seu amigo;

Então.. todas as páginas qlqr tipo de contato assim seriam redirecionadas pra esta página obrigado, dae dependendo de onde o cara veio, exbir tal msg...

tem como? seria alguma coisa como Request.ALGUMACOISA.

E quanto a esta sql, tem um erro... faço a consulta no acess e funciona direito.. olhem

 sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) "
  sql=sql&"VALUES('"&sexo& "','"&apelido&"','"&nome&"','"&nascimento&"','"&e_civil& "','"&cidade&"','"&uf&"','"&icq&"','"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"','"&celular&"','"&telefone&"','" & sobre & "','"&titulo& "','"&nivel&"','"&senha&"','"&login& "','"&expedicao&"')"

ERRO

Microsoft JET Database Engine erro '80040e07'

Tipo de dados imcompatível na expressão de critério.

/sitesdoguto/adduser.asp, line 53

ALGUÉM AJUDA EU???

[ursolouco]

Brother!!

1ª Dúvida - Uma possivel solução!!!

você pode ultilizar uma QueryString e de acordo com a opção enviada pode ser gerada a mensagem:

<%
recebe_pagina = Request.QueryString("Cod_Pagina")
Select Case "recebe_pagina"
 Case "Contato"
   Response.Write("Email Enviado")
 Case "Cadastro"
   Response.Write("Cadastro OK")
 Case "Enquete"
   Response.Write("Voto computado")
 Case ""
   Response.Write("Obrigado")
End Select
%>

2ª Dúvida - Uma possivel solução:

Verifique quais tipo de dados você esta tentando inserir no seu banco de dados, pois me parece, não tenho certeza, que você esta tentando inserir dados de um formato em um campo inválido ou de tipo incompativel do que esta sendo enviado pela página.

Veja se pode lhe ajudar algumas das minhas soluções!!

Abraços!!! [urso]

[[ GuTo ]]

como assim? pode transformar estas váriaveis num exemplo com o adress das páginas e etc...

ah, pra q serve isso? request.querystring("script_name") já vi em páginas de paginação

<%
recebe_pagina = Request.QueryString("Cod_Pagina")
Select Case "recebe_pagina"
Case "Contato"
  Response.Write("Email Enviado")
Case "Cadastro"
  Response.Write("Cadastro OK")
Case "Enquete"
  Response.Write("Voto computado")
Case ""
  Response.Write("Obrigado")
End Select
%>

E quanto a 2ª dúvida..

você tá kerendo dizer q eu devo declarar número como números e strings como strings?

ficando assim pra números: "&nomedavar&"

ficando assim pra strings de numeros e/ou letras: '"&nomedavar&"'

isso?

já tentei isso.. axo q fiz certo, mas o erro este continua...

[Decio]

Só declarar um tipo de variavel pode não resolver o problema ex:

Dim numero

numero = request.QueryString("ID")'Forma pouco correta

o mais indicado seria assim:

numero = Cint(request.QueryString("ID")) 'Para inteiros

Ou seja , tente ao inserir no banco de dados da seguinte forma:

Cint(para numeros) e Cstr(Para Strings)

Quanto a outra dúvida , você poderia tambem usar Session:

Em cada página você insere o código:

<%

Session("PAGINA")="Veio da página obrigado.asp"

%>

Dai em qualquer página você pode recuperar da seguinte forma:

<%

Response.Write Session("PAGINA")

%>