%@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