<%Response.expires=-1000
Response.Buffer=True
Dim id_classe_
id_classe_="GER"
%>
<%'--------- verifica de onde é a chamada -------------
if Request.QueryString("idp").Count=1 then
id_classe_=Request.QueryString("idp")
elseif Request.Form("idp").Count=1 then
id_classe_=Request.form("idp")
end if
%>
<%
if Request.Form("action") = "post" then
escola_= Replace(Replace(Replace(Request.Form("escola"),">",">"),"<","<"),"'","''")
url_= Replace(Replace(Replace(Request.Form("url"),">",">"),"<","<"),"'","''")
descricao_=Replace(Replace(Replace(Request.Form("descricao"),">",">"),"<","<"),"'","''")
email_=Replace(Replace(Replace(Request.Form("email"),">",">"),"<","<"),"'","''")
autor_=Replace(Replace(Replace(Request.Form("autor"),">",">"),"<","<"),"'","''")
cargo_=Replace(Replace(Replace(Request.Form("cargo"),">",">"),"<","<"),"'","''")
mail_aut_=Replace(Replace(Replace(Request.Form("mail_aut"),">",">"),"<","<"),"'","''")
telef_aut_=Replace(Replace(Replace(Request.Form("telef_aut"),">",">"),"<","<"),"'","''")
tempo_=Now
localidade_= Replace(Replace(Replace(Request.Form("localidade"),">",">"),"<","<"),"'","''")
tipo_= Replace(Replace(Replace(Request.Form("tipo"),">",">"),"<","<"),"'","''")
e=0
if len(escola_) = 0 then e=e+1
if len(url_) = 0 then e=e+1
if len(localidade_) = 0 then e=e+1
if len(descricao_) = 0 then descricao_=" "
if len(email_) = 0 then email_=" "
if len(autor_) = 0 then e=e+1
if len(cargo_) = 0 then cargo_=" "
if len(mail_aut_) = 0 then mail_aut_=" "
if len(telef_aut_) = 0 then telef_aut_=" "
if e > 0 then
response.ReDirect("inserir.asp?mssg=Dados não Válidos ou Campo Obrigatório não preenchido")
Else
Dim connection
set connection=server.createobject("adodb.connection")
connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database
ssql="Insert Into "&dados &"(escola, url, descricao, email, autor, cargo, mail_aut, telef_aut, id_classe, tempo, localidade, tipo) VALUES('" & escola_ &"', '" & url_ &"', '" & descricao_ &"', '" & email_ &"', '" & autor_ &"', '" & cargo_ &"', '" & mail_aut_ &"', '" & telef_aut_ &"', '" & id_classe_ &"', '" & tempo_ &"', '" & localidade_ &"', '" & tipo_ & "')"
'response.write(ssql)
connection.Execute(ssql)
Response.ReDirect ("nesc.asp?idp="&id_classe_)
End If
Else
ShowForm
End If
%>
<% '---------------------------------------------------------------------------------
Sub ShowForm%>
<%if Request.QueryString("mssg").Count=1 then%>
<%'%>
<%End Sub%>
<% '---------------------------------------------------------------------------------
Sub ShowList(nome,tabela)
Dim conn1
set conn1=server.createobject("adodb.connection")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database
Set rs = conn1.Execute("SELECT * FROM " & tabela)
Response.write("")
Set rs=Nothing
Set conn1=nothing
End Sub
'------------------------------------------------------------------------------------%>