<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type=text/css>
html {
scrollbar-base-color: #FFFFFF;
scrollbar-arrow-color: #011B8E;
scrollbar-3dlight-color: #CCCCCC;
scrollbar-darkshadow-color: #999999;
scrollbar-face-color: #FFFFFF;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #FFFFFF;
scrollbar-track-color: #FFFFFF;
}
</style>
</head>
<body>
<img align="right" src="Imagens/OpPedidoInspeccao.jpg">
<br><br><br>
<span style="color:#FF6600; text-decoration:underline; font-size:14px">
<b>OS DADOS PROCESSADOS FORAM OS SEGUINTES:</b>
</span>
<p>
<span style="color:#6A6D96; font-size:14px">
<%
response.write("Data do Pedido: "+request.form("dataactual")+"<br>")
response.write("Nome (Requerente): "+request.form("nome")+"<br>")
response.write("Morada (Requerente): "+request.form("morada")+"<br>")
response.write("Código Postal (Requerente): "+request.form("codpostal1")+"-"+request.form("codpostal2")+" "+request.form("localidade")+"<br>")
response.write("Telefone (Requerente): "+request.form("telefone")+"<br>")
response.write("Telemóvel (Requerente): "+request.form("telemovel")+"<br>")
response.write("E-mail (Requerente): "+request.form("email")+"<br>")
response.write("Tipo de Inspecção: "+request.form("tipodeinspeccao")+"<br>")
response.write("Tipo de Instalação: "+request.form("tipodeinstalacao")+"<br>")
response.write("Morada (Inspecção): "+request.form("moradainsp")+"<br>")
response.write("Código Postal (Inspecção): "+request.form("codpostal1insp")+"-"+request.form("codpostal2insp")+" "+request.form("localidadeinsp")+"<br>")
response.write("Data Preferencial: "+request.form("datapreferencial")+"<br>")
Rem Grava a informação introduzida na Form, na BD em Access.
Rem Query SQL que servirá para inserir na BD Access os dados introduzidos na Form.
Dim SQLString as string
Dim S1 as string
Dim S2 as string
S1 = Request.Form("codpostal1") & "-" & Request.Form("codpostal2") & " " & Request.Form("localidade")
S2 = Request.Form("codpostal1insp") & "-" & Request.Form("codpostal2insp") & " " & Request.Form("localidadeinsp")
SQLString = "INSERT INTO Pedidos_de_Inspeccao (Data_de_Entrada_do_Pedido_de_Inspeccao, Nome_do_Requerente, Morada_do_Requerente, CodPostal_do_Requerente, Telefone_do_Requerente, Telemovel_do_Requerente, Email_do_Requerente, Tipo_de_Inspeccao, Tipo_de_Instalacao, Morada_da_Inspeccao, CodPostal_da_Inspeccao, DataPreferencial_Inspeccao)"
SQLString = SQLString & "VALUES ('" & Request.Form("dataactual") & "','" & Request.Form("nome") & "','" & Request.Form("morada") & "','" & S1 & "','" & Request.Form("telefone") & "','" & Request.Form("telemovel") & "','" & Request.Form("email") & "','" & Request.Form("tipodeinspeccao") & "','" & Request.Form("tipodeinstalacao") & "','" & Request.Form("moradainsp") & "','" & S2 & "','" & Request.Form("datapreferencial") & "')"
Rem A Conexão à Fonte de Dados é feita usando o Provedor OleDB.
Dim DBConn as New OleDBConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwroot\Pedidos.mdb")
Rem Cria um Objecto OleDbCommand.
Rem Passa os parâmetros para um Objecto OleDbCommand.
Dim DBComm as New OleDbCommand
DBComm.Connection = DBConn
DBComm.CommandText = SQLString
Rem Cria e passa os dados para Objectos OleDbParameter.
Rem *****
Dim DBParam_Data_de_Entrada_do_Pedido_de_Inspeccao as new OleDbParameter
DBParam_Data_de_Entrada_do_Pedido_de_Inspeccao.ParameterName = "@Data_de_Entrada_do_Pedido_de_Inspeccao"
DBParam_Data_de_Entrada_do_Pedido_de_Inspeccao.Value = Request.Form("dataactual")
DBParam_Data_de_Entrada_do_Pedido_de_Inspeccao.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Data_de_Entrada_do_Pedido_de_Inspeccao)
Rem *****
Dim DBParam_Nome_do_Requerente as new OleDbParameter
DBParam_Nome_do_Requerente.ParameterName = "@Nome_do_Requerente"
DBParam_Nome_do_Requerente.Value = Request.Form("nome")
DBParam_Nome_do_Requerente.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Nome_do_Requerente)
Rem *****
Dim DBParam_Morada_do_Requerente as new OleDbParameter
DBParam_Morada_do_Requerente.ParameterName = "@Morada_do_Requerente"
DBParam_Morada_do_Requerente.Value = Request.Form("morada")
DBParam_Morada_do_Requerente.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Morada_do_Requerente)
Rem *****
Dim DBParam_CodPostal_do_Requerente as new OleDbParameter
DBParam_CodPostal_do_Requerente.ParameterName = "@CodPostal_do_Requerente"
DBParam_CodPostal_do_Requerente.Value = Request.Form("codpostal1") & "-" & Request.Form("codpostal2") & " " & Request.Form("localidade")
DBParam_CodPostal_do_Requerente.DbType = DbType.String
DBComm.Parameters.Add(DBParam_CodPostal_do_Requerente)
Rem *****
Dim DBParam_Telefone_do_Requerente as new OleDbParameter
DBParam_Telefone_do_Requerente.ParameterName = "@Telefone_do_Requerente"
DBParam_Telefone_do_Requerente.Value = Request.Form("telefone")
DBParam_Telefone_do_Requerente.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Telefone_do_Requerente)
Rem *****
Dim DBParam_Telemovel_do_Requerente as new OleDbParameter
DBParam_Telemovel_do_Requerente.ParameterName = "@Telemovel_do_Requerente"
DBParam_Telemovel_do_Requerente.Value = Request.Form("telemovel")
DBParam_Telemovel_do_Requerente.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Telemovel_do_Requerente)
Rem *****
Dim DBParam_Email_do_Requerente as new OleDbParameter
DBParam_Email_do_Requerente.ParameterName = "@Email_do_Requerente"
DBParam_Email_do_Requerente.Value = Request.Form("email")
DBParam_Email_do_Requerente.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Email_do_Requerente)
Rem *****
Dim DBParam_Tipo_de_Inspeccao as new OleDbParameter
DBParam_Tipo_de_Inspeccao.ParameterName = "@Tipo_de_Inspeccao"
DBParam_Tipo_de_Inspeccao.Value = Request.Form("tipodeinspeccao")
DBParam_Tipo_de_Inspeccao.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Tipo_de_Inspeccao)
Rem *****
Dim DBParam_Tipo_de_Instalacao as new OleDbParameter
DBParam_Tipo_de_Instalacao.ParameterName = "@Tipo_de_Instalacao"
DBParam_Tipo_de_Instalacao.Value = Request.Form("tipodeinstalacao")
DBParam_Tipo_de_Instalacao.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Tipo_de_Instalacao)
Rem *****
Dim DBParam_Morada_da_Inspeccao as new OleDbParameter
DBParam_Morada_da_Inspeccao.ParameterName = "@Morada_da_Inspeccao"
DBParam_Morada_da_Inspeccao.Value = Request.Form("moradainsp")
DBParam_Morada_da_Inspeccao.DbType = DbType.String
DBComm.Parameters.Add(DBParam_Morada_da_Inspeccao)
Rem *****
Dim DBParam_CodPostal_da_Inspeccao as new OleDbParameter
DBParam_CodPostal_da_Inspeccao.ParameterName = "@CodPostal_da_Inspeccao"
DBParam_CodPostal_da_Inspeccao.Value = Request.Form("codpostal1insp") & "-" & Request.Form("codpostal2insp") & " " & Request.Form("localidadeinsp")
DBParam_CodPostal_da_Inspeccao.DbType = DbType.String
DBComm.Parameters.Add(DBParam_CodPostal_da_Inspeccao)
Rem *****
Dim DBParam_DataPreferencial_Inspeccao as new OleDbParameter
DBParam_DataPreferencial_Inspeccao.ParameterName = "@DataPreferencial_Inspeccao"
DBParam_DataPreferencial_Inspeccao.Value = Request.Form("datapreferencial")
DBParam_DataPreferencial_Inspeccao.DbType = DbType.String
DBComm.Parameters.Add(DBParam_DataPreferencial_Inspeccao)
Rem A Conexão vai ser aberta.
DBConn.Open()
Rem Altera o conteúdo de uma BD sem precisar de se recorrer a um Dataset.
DBComm.ExecuteNonQuery()
Rem A Conexão vai ser fechada.
DBConn.Close()
%>
</span>
</p>