<% @ 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:
" onSubmit="return verifica_form(this);">
Cliente
<%If objRS.Fields("Cliente").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Vendedor
Arte Finalista
Produção em:
Título Job
<%If objRS.Fields("job").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Arquivo
Quantidade
Tamanho Impressão
Prensa - Calandra
<%If objRS.Fields("pre_cal").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Digital - Off-set
<%If objRS.Fields("dig_off").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Papel
<%If objRS.Fields("papel").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Local Transfer
<%If objRS.Fields("transfer").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Plotter
<%If objRS.Fields("impressora").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Data da Entrega
<%If objRS.Fields("entrega").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
CTP
<%If objRS.Fields("ctp").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Gráfica
<%If objRS.Fields("grafica").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Modelagem
<%If objRS.Fields("modelagem").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Observação
Foto (URL)















&pasta=<%=Server.URLEncode("imagens_Opcionais")%>" onClick="abre_janela(250, 300, 'alterar_imagem')" target="alterar_imagem" class="texto_pagina">Enviar Imagem
<% 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 %>