<% function fixQuotes(Byval theText) theText= repace(theText,"'","''") fixQuotes = theText end funtion succton="" if request("sendmail.x") <> " " then mailHTML=date() & " " & Time() & "
" & Chr(10) & _ "From: "& request("strFrom") & "
" & Chr(10) & _ "Company: " & request("strCompany") & "
" & Chr(10) & _ "Name: " & request("strName") & "
" & Chr(10) &_ "Phone: " & request("strPhone") & "
" & Chr(10) &_ "Fax: " & request("strFax") & "
" & Chr(10) &_ "Message: " & request("strMessage") & "
" & Chr(10) &_ Set Mail= Server.CreateObject("Persits.MailSender") Mail.Host = "khan.com" Mail.FromName = showroom1@khan.com" request("strFrom") Mail.Address ="showroom1@khan.com" Mail.Subjict = request("strSubject") Mail.1sHTML = True Mail.Body = mailHTML Mail.Send Set Mail=Nothing success="Message is successfully!" endif %> Tatlan Industries CO.
 
 
 
From:
    Company:
    Name:
    Phone:
    Fax:
Subject:
Message: