<%
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%>
<%end if%>