<% 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() %>