<% response.buffer=true Server.ScriptTimeout=300 %> ::: ABC NATAL ::: <%if request("acao")="cadastrar" then Call Abre1 Dim cn sql = "Select senha,CodUsuario,vip from tbUsuario where email ='"& request("email") & "'" Set fs=cn.execute(sql) if not fs.eof and not fs.bof then if trim(request("senha")) = trim(fs.fields("senha")) then if not isnull(fs.fields("vip")) then if fs.fields("vip") then status = 2 else status=1 end if else status=1 end if teste = split(date,"/",-1) Data = teste(1)&"/"&teste(0)&"/"&teste(2) 'data = Date sql = "Insert into tbMensagem (CodUsuario,Data,status,mensagem) values ("&fs.fields("CodUsuario")&","&plic(data)&","&status&","&plic(request("mensagem"))&")" Set rs=cn.execute(sql) Response.redirect("mensagemnova.asp?Erro=Msg3") else Response.redirect("mensagemnova.asp?Erro=Msg2&email="&request("email")&"&mensagem="&request("mensagem")&"") end if else Response.redirect("mensagemnova.asp?Erro=Msg1&email="&request("email")&"&mensagem="&request("mensagem")&"") end if %> <%else if request("Erro")="Msg1" then %> <%end if if request("Erro")="Msg2" then %> <%end if if request("Erro")="Msg3" then %> <%end if if request("Erro")="Msg" then %> <%end if%>
 
Envie sua mensagem
Se você ainda não tem cadastro clique aqui.
 
 
E-mail:  ">
Senha: 
Mensagem: 
 
<%end if%>
Fechar Janela