<%If Request("Sender")="" Or Request("eMail")="" Or Request("Subject")="" Or Request("Body")="" Then%>

Mikäli haluat antaa palautetta, haluat lisätietoa, haluat tarjouksen, tms. voit tästä lähettää meille viestin. Jos haluat tarjouksen voit jättää hintarajan. Nimi E-mail Puhelin Aihe Viesti: Hintaraja: EUR

<%Else%> <% AbsenderEmail = "postmaster@graulin.com" AbsenderName = "Postmaster" EmpfaengerMail = "kysely@graulin.com" Betreff = Request("Subject") MailInhalt = "Asiakas: " & Request("Sender") & vbCrLf _ & "Puh: " & Request("Phone") & vbCrLf _ & "eMail: " & Request("eMail") & vbCrLf _ & " " & vbCrLf _ & "on lähettänyt tänään " & Date & " lisätietokyselyn seuraavasta kohteesta." & vbCrLf _ & " " & vbCrLf _ & Request("Subject") & vbCrLf _ & " " & vbCrLf _ & "Asiakkaan viesti:" & vbCrLf _ & "-----------------" & vbCrLf _ & Request("Body") & vbCrLf _ & " " & vbCrLf _ & "Hintaraja: " & Request("Maxprice") & " " & Request("Currency") sendSMTPMail AbsenderEmail, AbsenderName, EmpfaengerMail, "195.158.54.4", Betreff, MailInhalt, 1 EmpfaengerMail = "webmaster@graulin.com" Betreff = Request("Subject") MailInhalt = "Asiakas: " & Request("Sender") & vbCrLf _ & "Puh: " & Request("Phone") & vbCrLf _ & "eMail: " & Request("eMail") & vbCrLf _ & " " & vbCrLf _ & "on lähettänyt tänään " & Date & " lisätietokyselyn seuraavasta kohteesta." & vbCrLf _ & " " & vbCrLf _ & Request("Subject") & vbCrLf _ & " " & vbCrLf _ & "Asiakkaan viesti:" & vbCrLf _ & "-----------------" & vbCrLf _ & Request("Body") & vbCrLf _ & " " & vbCrLf _ & "Hintaraja: " & Request("Maxprice") & " " & Request("Currency") sendSMTPMail AbsenderEmail, AbsenderName, EmpfaengerMail, "195.158.54.4", Betreff, MailInhalt, 1 'Lähetä asiakkaalle kuittaus kyselystä EmpfaengerMail = Request("eMail") Betreff = "Kyselysi Graulin:lle on vastaanotettu!" 'MailInhalt = "Hei " & Request("Sender") & "!" & vbCrLf _ ' &" " & vbCrLf _ ' &"Kiitos tiedustelustasi kohteesta " & Request("Subject") & "!" & vbCrLf _ ' &" " & vbCrLf _ ' &"Otamme sinuun yhteyttä mahdollisimman pian joko sähköpostitse" & vbCrLf _ ' &"tai mikäli annoit puhelinnumerosi mielellään myös puhelimitse." MailInhalt = "Hei " & Request("Sender") & "!" & vbCrLf _ &" " & vbCrLf _ &"Kiitos viestistäsi!" & vbCrLf _ &" " & vbCrLf _ &"Olemme lomalla ajalla 10.7-6.8.2003" & vbCrLf _ &" " & vbCrLf _ &"Kyselysi on taltioitu ja vastaamme sinulle palattuamme takaisin töihin." & vbCrLf _ &" " & vbCrLf _ &"Kiireellisissä tapauksissa voit soittaa numeroon : +49 173 9495336 tai +49 172 9725755" & vbCrLf _ &" " & vbCrLf _ &"Firma Graulin" sendSMTPMail AbsenderEmail, AbsenderName, EmpfaengerMail, "195.158.54.4", Betreff, MailInhalt, 1 %> <%Response.Redirect "send.htm"%> <%End If%>