%
section = "metrologia"
pag = "mod201"
lang = Request.QueryString("lang")
If Request.QueryString("lang")="" Then lang = "ita"
If lang = "eng" Then
title = "Breakdown report form" %>
<% Else
title = "Modulo segnalazione guasti"%>
<% End if
function MakeContent()
%>
<%= s002tit %>
<%
'raccolgo i dati dalla form
marca = request.form("marca")
modello = request.form("modello")
serial = request.form("serial")
cespite = request.form("cespite")
accessori = request.form("accessori")
difetto = request.form("difetto")
guasto = request.form("guasto")
parti = request.form("parti")
altro = request.form("altro")
preventivo = request.form("preventivo")
garanzia = request.form("garanzia")
courtesy = request.form("courtesy")
navetta = request.form("navetta")
contratto = request.form("contratto")
sig = request.form("sig")
tel = request.form("tel")
prevsig = request.form("prevsig")
prevtel = request.form("prevtel")
fax = request.form("fax")
ditta = request.form("ditta")
indirizzo = request.form("indirizzo")
email = request.form("email")
'preferenze
indiFrom = email
indiTo = "rma@tek-up.com"
strMailServer = "mail.sincretech.it" 'qui il mail server
' preparo mail a TEK-UP
messaggio = "MODULO SEGNALAZIONE GUASTI ON LINE" & vbCRLF & vbCRLF _
& "Marca: " & marca & vbCRLF _
& "Modello: " & modello & vbCRLF _
& "Numero di serie: " & serial & vbCRLF _
& "Cespite: " & cespite & vbCRLF & vbCRLF _
& "Accessori: " & accessori & vbCRLF & vbCRLF _
& "Il difetto riscontrato è " & difetto & vbCRLF & vbCRLF _
& "Descrizione del guasto: " & guasto & vbCRLF & vbCRLF _
& "Parti meccaniche da sostituire: " & parti & vbCRLF & vbCRLF _
& "Altro: " & altro & vbCRLF & vbCRLF _
& "Sono richiesti: " & vbCRLF _
& "Si autorizza riparazione in caso di preventivo inferiore a importo € " & preventivo & " / " & garanzia _
& " / " & courtesy & " / " & navetta & vbCRLF & vbCRLF _
& "Contratto di taratura in essere con TEK-UP: " & contratto & vbCRLF & vbCRLF _
& "In caso di necessità di ulteriori informazioni contattare: " & vbCRLF _
& "Sig.: " & sig & vbCRLF _
& "Telefono: " & tel & vbCRLF & vbCRLF _
& "Inviare il preventivo a:" & vbCRLF _
& "Sig.: " & prevsig & vbCRLF _
& "Telefono: " & prevtel & vbCRLF _
& "Fax: " & fax & vbCRLF _
& "Ditta: " & ditta & vbCRLF _
& "Indirizzo: " & indirizzo & vbCRLF _
& "E-mail: " & email & vbCRLF & vbCRLF
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = indiFrom
Mailer.To = indiTo
Mailer.Subject = "Mod.201 on line - Richiesta RMA"
Mailer.Body = messaggio
Mailer.Send
Set Mailer = Nothing
%>
<%= s032succ %>
<%= s033rma %> <% = request.form("email") %> <%= s033rma2%>
<%
end function
MakeTemplate()
%>