<%@LANGUAGE="VBSCRIPT"%> <% if request("jaVisto") = 1 then temp = seguranca() temp = Seguranca_global() nIDProduto = request("nIDAplicacao") wtipo_pedido = request("tipo_pedido") wtipo_pedido2 = request("tipo_pedido2") ELSE nIDProduto = Request.QueryString("PnID") wtipo_pedido = Request.QueryString("tipo_pedido") wtipo_pedido2 = Request.QueryString("tipo_pedido2") end if 'if Request.QueryString("PnID")<> "" then ' session("nIDProduto") = Request.QueryString("PnID") 'nIDProduto = Request.QueryString("PnID") 'wtipo_pedido = Request.QueryString("tipo_pedido") ' else ' nIDProduto = session("nIDProduto") ' wtipo_pedido = session("tipo_pedido") 'temp = seguranca() 'temp = Seguranca_global() 'end if %> <% Dim Recordset1__MMPnID Recordset1__MMPnID = "1" If (nIDProduto <> "") Then Recordset1__MMPnID = nIDProduto End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_odbc_apkomp_STRING Recordset1.Source = "SELECT * FROM Aplicacoes WHERE nID = " + Replace(Recordset1__MMPnID, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 'response.write(wtipo_pedido) 'response.write(wtipo_pedido2) %> <% Erro = "" ok = Request("MMInsert") if ( cint(ok) = 1 ) then Empresa = Request("empresa") Email = Request("email") DataInsercao = date() nIDAplicacao = Request("nIDAplicacao") licenciamento = Request("licenciamento") data = Request("data") modulos = Request("modulos") chave = Request("chave") wtipo_pedido = request("tipo_pedido") wtipo_pedido2 = request("tipo_pedido2") MM_tableName = "log" LO_C = "INSERT INTO log (Empresa, Email, DataInsercao, nIDAplicacao, licenciamento, data, modulos, chave) VALUES ('" & Empresa & "','" & Email & "','" & DataInsercao & "'," & nIDAplicacao & ",'" & licenciamento & "','" & data & "','" & modulos & "','" & chave & "')" Set MM_updateCmd = Server.CreateObject("ADODB.Command") MM_updateCmd.ActiveConnection = MM_odbc_apkomp_STRING MM_updateCmd.CommandText = LO_C MM_updateCmd.Execute Texto = "Empresa: " & Empresa & "
" Texto = Texto & "Email: " & Email & "
" Texto = Texto & "DataInsercao: " & date() & "
" Texto = Texto & "nIDAplicacao: " & nIDAplicacao & "
" Texto = Texto & "Aplicacao: " & Recordset1.Fields.Item("Aplicacao").Value & "
" Texto = Texto & "licenciamento: " & licenciamento & "
" Texto = Texto & "data: " & data & "
" Texto = Texto & "modulos: " & modulos & "
" Texto = Texto & "chave: " & chave & "
" if wtipo_pedido2 = "Actualização" then temp = SendMail("Actualizacao de Software", Texto) end if if wtipo_pedido2 = "Melhorias" then temp = SendMail("Melhorias de Software", Texto) end if if IsNull(Recordset1.Fields.Item("URL").Value) then Erro = "URL Não Definida" end if if licenciamento = "" then Erro = Erro & "
Falta preencher o Licenciamento" end if if data = "" then Erro = Erro & "
Falta preencher a Data" end if if chave = "" Or (len(chave) <> 14 and len(chave) <> 10 and len(chave) <> 29) Then Erro = Erro & "
Falta preencher a Palavra Chave ou Palavra Chave errada" end if if Email = "" then Erro = Erro & "
Falta preencher o Email" end if if Erro = "" AND Seguranca() = true Then if wtipo_pedido2 = "Actualização" then Response.redirect (Recordset1.Fields.Item("URL").Value) wtipo_pedido = "actualizacao" end if if wtipo_pedido2 = "Melhorias" then Response.redirect (Recordset1.Fields.Item("URL_MELHORIAS").Value) wtipo_pedido = "melhorias" end if end if if wtipo_pedido2 = "Actualização" then wtipo_pedido = "actualizacao" end if if wtipo_pedido2 = "Melhorias" then wtipo_pedido = "melhorias" end if end if Function Seguranca() Seguranca = true End Function Function Seguranca_global() End function %> APKomp
 
 
 
 

 

<% if wtipo_pedido = "actualizacao" then %> <% end if %> <% if wtipo_pedido = "melhorias" then %> <% end if %>
APKomp / Software / Actualização On-LineAPKomp / Software / Melhorias
<% if Erro <> "" then %>

<%=Erro %>



<% end if %>

Por favor, preencher o seguinte Formulário.

Aplicação: <%=(Recordset1.Fields.Item("Aplicacao").Value)%> "> <% filename="C:\INETPUB\WWWROOT\apkomp.pt,com,net,org\SOFTWARE\UPDATES\" & Recordset1.Fields.Item("NOME_FICHEIRO").Value Set fso = CreateObject("Scripting.FileSystemObject") If fso.fileExists(filename) = TRUE Then set mainfile=fso.GetFile(filename) response.write mainfile.DateLastModified End If %>

 

Nome de Licenciamento: (preenchimento obrigatório)
" size="20">

 

Data de Licenciamento: (preenchimento obrigatório)
" size="20">

 

Módulos Extras: (preenchimento obrigatório, podendo ser em branco)
" size="20">

 

Palavra-Passe: (preenchimento obrigatório)
" size="29">

 

E.mail: (preenchimento obrigatório)
" size="20">

 

Denominação da Entidade: (preenchimento facultativo)
" size="20">

 

<% if wtipo_pedido = "actualizacao" and nIDProduto = "31" then %> <% else %>
<% end if %>
<% if wtipo_pedido = "actualizacao" and nIDProduto = "31" then %> <% end if %>

Enviar Manual

Manual de Instalação

Enviar Manual Seguros

Manual de Importação

 

<% if wtipo_pedido = "actualizacao" then %>

A actualização implica a aceitação do exposto na nossa tabela de preços, também disponivel no nosso sitio, do referido programa.

A Apkomp não pode ser responsabilizada por quaisquer alterações, danos ou perdas dos dados ou sistemas informáticos que possam ocorrer enquanto usa este programa.
Assegure-se de que tem cópias de segurança actualizadas dos dados contidos nos seus discos rígidos antes de instalar qualquer software.


<% end if %> <% if wtipo_pedido = "melhorias" then %>


<% end if %>
© Copyright 2012 APKomp. Todos os direitos reservados.
<% Recordset1.Close() Set Recordset1 = Nothing %>