<!--#include file="../comum/abre-conexao.inc"-->
<%
Dim objRs, strQuery, strConnection
'Esse rs é um record Set, dai vc pode inserir qualquer coisa, é a forma mais segura de inserção de dados, só é mais complicadinha
Set rs= Server.CreateObject("ADODB.Recordset")
'Essa SQL abaixo server para abriar a tabela para edição, ai normalmente é feito no campo que é autonumeração selecionando onde -1, ou seja não retorna nada
sSql = "SELECT * from SOLICITACOES "
'ABAIXO CONEXAO É SEU OBJETO DE CONEXÃO, NÃO LEMBRO O NOME, VC ALTERA
rs.Open sSql, objCon, 2 , 2
'AQUI VC CRIA AS VARIÁVEIS RECEBENDO OS DADOS DO FORMULÁRIO
'variavel_1=request("form_campo_1")
'variavel_n=request("form_campo_n")
MATRICULA=request("matricula")
NOME=request("nome")
DATA=request("data")
HORA=request("hora")
SUPERVISOR=request("supervisor")
APLICATIVO=request("aplicativo")
STATUSLOGIN=request("statuslogin")
OBS=request("obs")
TIPOSOLICITACAO=request("tiposolicitacao")
SKILL=request("skill")


'AQUI COMEÇA A INSERÇÃO DOS DADOS
 With rs 
            .AddNew
            .Fields("MATRICULA").value= MATRICULA
            .Fields("NOME").value= NOME
            .Fields("DATA").value= DATA
            .Fields("HORA").value= HORA
            .Fields("SUPERVISOR").value= SUPERVISOR
            .Fields("APLICATIVO").value= APLICATIVO
            .Fields("STATUSLOGIN").value= STATUSLOGIN
			.Fields("OBS").value= OBS
			.Fields("TIPOSOLICITACAO").value= TIPOSOLICITACAO
			.Fields("SKILL").value= SKILL
					
'AQUI VC PODE COLOCAR QUANTOS CAMPOS FORES NECESSÁRIOS
            .Update
 
End With
<!-- #include file = "../comum/fecha-conexao.inc" -->
Response.Redirect("conclusao_solicitacao.html")

%>