<%@ LANGUAGE=VBScript %> <% Dim RLimpa select case request.form("btnSubmit1") case "Submeter" call dosub case else end select Set RLimpa = Server.CreateObject("ADODB.Recordset") RLimpa.ActiveConnection = objConn RLimpa.Source = "SELECT * FROM tbprodutos" RLimpa.open() do while not RLimpa.eof session("valor"&(RLimpa.Fields.Item("Id").Value))="" session("q"&(RLimpa.Fields.Item("Id")))=0 RLimpa.movenext loop session("Totmes")="" session("Totinstala")="" session("Totiterven")="" session("Snome")="" session("Slocalidade")="" session("Semail")="" session("Stelefone")="" session("Smorada")="" session("Scp1")="" session("Scp2")="" session("Sfax")="" session("Stelemovel")="" session("Scontribuinte")="" %> ____S.O.V.____

     Alarmes


 

 

Preencher os campos para efectuar pedir o orçamento
   
Nome (*)
Localidade (*)
E-mail (*)
Telefone de contacto (*)
(*) - Preenchimento obrigatório
Desenvolvido por: Web4all
<% function dosub() Dim StrSql1 session("Snome")=request.Form("nome") session("Slocalidade")=request.Form("localidade") session("Semail")=request.Form("email") session("Stelefone")=request.Form("telefone") session("Sdata")=date()&" - "&time() StrSql1="Insert into tbvisitantes ( nome, localidade, email, telefone,data)" StrSql1= StrSql1 & " Values('" & session("Snome") & "','" & session("Slocalidade") & "','" & session("Semail") & "','" & session("Stelefone") & "','" & session("Sdata") & "')" response.Write(StrSql1) 'response.End() objConn.Execute( StrSql1) Response.Redirect("Encomendas.asp") end function %>