% @ LANGUAGE="VBSCRIPT" %>
<%
'*******************************************************************
' Página gerada pelo sistema Dataform 2 - http://www.dataform.com.br
'*******************************************************************
' Altere os valores das variáveis indicadas abaixo se necessário
'String de conexão para o banco de dados do Microsoft Access
strCon = "DBQ=E:/home/mosaicoimpressao/Dados/DB/osmosaico.mdb;Driver={Microsoft Access Driver (*.mdb)};"
'Nome da página de consulta
pagina_consulta = "consulta.asp"
'Nome da página de alteração
pagina_alteracao = "df_alteracao.asp"
'Nome da página de inclusão
pagina_inclusao = "df_inclusao.asp"
'Nome da página de login
pagina_login = "default.asp"
'*******************************************************************
If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then
%>
Incluir Registro
Links: Página de Consulta | Página de Inclusão
<%
If Not IsEmpty(Request.Form) Then
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
campo_duplicado = false
campo_msg = ""
If campo_duplicado = false Then
Set objRS= Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 0
objRS.LockType = 3
strQ = "SELECT * FROM os Where 1 <> 1"
objRS.Open strQ, objCon, , , &H0001
objRS.Addnew()
If objRS.Fields("Cliente").properties("IsAutoIncrement") = False Then
objRS("Cliente") = Trim(Request.Form("Cliente"))
End If
If objRS.Fields("vendedor").properties("IsAutoIncrement") = False Then
objRS("vendedor") = Trim(Request.Form("vendedor"))
End If
If objRS.Fields("finalista").properties("IsAutoIncrement") = False Then
objRS("finalista") = Trim(Request.Form("finalista"))
End If
If objRS.Fields("finalista").properties("IsAutoIncrement") = False Then
objRS("finalista") = Trim(Request.Form("finalista"))
End If
If objRS.Fields("posicao").properties("IsAutoIncrement") = False Then
objRS("posicao") = Trim(Request.Form("posicao"))
End If
If objRS.Fields("job").properties("IsAutoIncrement") = False Then
objRS("job") = Trim(Request.Form("job"))
End If
If objRS.Fields("arquivo").properties("IsAutoIncrement") = False Then
objRS("arquivo") = Trim(Request.Form("arquivo"))
End If
If objRS.Fields("qtdade").properties("IsAutoIncrement") = False Then
objRS("qtdade") = Trim(Request.Form("qtdade"))
End If
If objRS.Fields("tamanho_imp").properties("IsAutoIncrement") = False Then
objRS("tamanho_imp") = Trim(Request.Form("tamanho_imp"))
End If
If objRS.Fields("pre_cal").properties("IsAutoIncrement") = False Then
objRS("pre_cal") = Trim(Request.Form("pre_cal"))
End If
If objRS.Fields("dig_off").properties("IsAutoIncrement") = False Then
objRS("dig_off") = Trim(Request.Form("dig_off"))
End If
If objRS.Fields("papel").properties("IsAutoIncrement") = False Then
objRS("papel") = Trim(Request.Form("papel"))
End If
If objRS.Fields("transfer").properties("IsAutoIncrement") = False Then
objRS("transfer") = Trim(Request.Form("transfer"))
End If
If objRS.Fields("impressora").properties("IsAutoIncrement") = False Then
objRS("impressora") = Trim(Request.Form("impressora"))
End If
If objRS.Fields("entrega").properties("IsAutoIncrement") = False Then
objRS("entrega") = Trim(Request.Form("entrega"))
End If
If objRS.Fields("ctp").properties("IsAutoIncrement") = False Then
objRS("ctp") = Trim(Request.Form("ctp"))
End If
If objRS.Fields("grafica").properties("IsAutoIncrement") = False Then
objRS("grafica") = Trim(Request.Form("grafica"))
End If
If objRS.Fields("modelagem").properties("IsAutoIncrement") = False Then
objRS("modelagem") = Trim(Request.Form("modelagem"))
End If
If objRS.Fields("obs").properties("IsAutoIncrement") = False Then
objRS("obs") = Trim(Request.Form("obs"))
End If
If objRS.Fields("foto").properties("IsAutoIncrement") = False Then
objRS("foto") = Trim(Request.Form("foto"))
End If
objRS.Update
objRS.Close
Set objRS = Nothing
%>
Registro salvo
O registro foi cadastrado
com sucesso.
<%
Else
%>
Atenção!
O campo <%=campo_msg%> "<%=valor_msg%>" não pode ser salvo, pois já está cadastrado na tabela.
Clique aqui para voltar ao cadastro
<%
End If
objCon.Close
Set objCon = Nothing
Else
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
Set objRS= Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 2
objRS.CursorType = 0
objRS.LockType = 3
strQ = "SELECT * FROM os Where 1 <> 1"
objRS.Open strQ, objCon, , , &H0001
%>
Incluir um novo registro
Preencha corretamente
os dados abaixo:
<%
objCon.Close
Set objCon = Nothing
End If
%>
<%
Else
Response.Write "Acesso negado... somente o administrador do site tem acesso a esta página."
Response.Write "
Clique aqui para efetuar login no sitema"
End If
%>