::: Horizon Microtech :::

<% if Request.QueryString("Status") = "Sent" then 'dim myMail 'set myMail = server.createobject("CDONTS.newmail") 'dim myMail 'set myMail =server.createobject("Persits.MailSender") dim flag myHTML = "" myHTML = myHTML & "

Guest Book :

" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "" 'myHTML = myHTML & "

Name :	" & Request.Form("Name") & "
Address :	" & Request.Form("txtAddress") & "
City :	" & Request.Form("txtCity") & "
PIN Code :	" & Request.Form("txtPinCode") & "
Country :	" & Request.Form("txtCountry") & "
Telephone :	" & Request.Form("txtPhone") & "
Fax :	" & Request.Form("txtFax") & "
EMail :	"& Request.Form("email") &"
Website :	" & Request.Form("txtWebSite")& "
Comments :	" & Request.Form("comments")& "

" myhtml = myhtml & "Name : " & Request.Form("Name") & "
" myhtml = myhtml & "Address : " & Request.Form("txtAddress") & "
" myhtml = myhtml & "City : " & Request.Form("txtCity") & "
" myhtml = myhtml & "Pin : " & Request.Form("txtPinCode") & "
" myhtml = myhtml & "Country : " & Request.Form("txtCountry") & "
" myhtml = myhtml & "Phone : " & Request.Form("txtPhone") & "
" myhtml = myhtml & "Fax : " & Request.Form("txtFax") & "
" myHTML = myhtml & "EMail : "& Request.Form("email") &"
" myhtml = myhtml & "Website : " & Request.Form("txtWebsite") & "
" myhtml = myhtml & "Comments : " & Request.Form("Comments") & "
" dim cdoConfig, cdoMessage sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.hmplgroup.com" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = Request.Form("Email") cdoMessage.To = "contact@nikhilparekh.com" cdoMessage.BCC = "feedback@urlsoftware.com" cdoMessage.Subject = "Guest Book" cdoMessage.HTMLBody = myhtml cdoMessage.Send set cdoConfig = nothing set cdoMessage = nothing ' MyMail.BodyFormat = cdoBodyFormatHTML 'MyMail.MailFormat =0 ' myMail.To = "contact@nikhilparekh.com" ' myMail.Bcc = "feedback@urlsoftware.com" ' myMail.Subject ="Guest Book" ' myMail.From = Request.Form("Email") ' myMail.Body = myHTML ' myMail.Send 'myMail.Host = "209.61.204.27" 'myMail.from = Request.Form("Email") 'myMail.AddAddress "contact@nikhilparekh.com" 'myMail.AddBCC "feedback@urlsoftware.com" 'myMail.username = "feedback@urlsoftware.com" 'myMail.password = "feedback" 'myMail.subject = "Guest Book" 'myMail.body = myhtml 'myMail.ishtml=true flag = true 'x=myMail.send 'Response.Write "Your feedback has been sent.....
" end if %>

<% if flag then %>

Thanks. Your message has been sent !!
<% end if %>

*Name :
Address :
City :
Country :
PIN Code :
Telephone :
Fax :
*Email :
WebSite :
*Feedback Regarding :
*Comments :