Home About Us Guidlines Other Agencies Offences & Penalties FAQ's Feedback <% dim fname dim address dim email dim telno dim myquery fname=Request("textfield") address=Request("textfield2") email=Request("textfield22") telno=Request("textfield222") myquery=Request("textarea") ''If fname<>"" Then ''Response.Write("Hello " & fname & "!
") ''Response.Write("How are you today?") ''End If %> <% fromWhom= email 'toWhom= "krjun@rediffmail.com" toWhom= "info@winactindia.com" subject= "Details" ''textbody="Dear sir/madam" textbody=textbody+ "Dear sir/madam," & vbcrlf & vbcrlf textbody=textbody+ "Below are the details for your kind perusal" & vbcrlf & vbcrlf textbody=textbody+ "Name: " & trim(fname)&" " & vbcrlf textbody=textbody+ "Address: " & trim(address) & " " & vbcrlf textbody=textbody + "E-Mail: " & trim(email) & "." & vbcrlf textbody=textbody + "Tel No: " & trim(telno) & "." & vbcrlf textbody=textbody + "Query: " & trim(myquery) & "." & vbcrlf & vbcrlf textbody=textbody + "Thanks & Regards," & vbcrlf textbody=textbody + trim(fname) & vbcrlf call sendEmail(fromWhom, toWhom, subject ,body) %> <% sub sendEmail(fromWhom, toWhom, subject ,body) 'set mymail = server.createobject("CDONTS.Newmail") set mymail = server.createobject("CDO.Message") mymail.from = fromWhom mymail.to = toWhom mymail.subject = subject '' mymail.Textbody = "You have been successfully registered. Will be back within 24 hours" mymail.Textbody = textbody 'mymail.bcc = "a@yahoo.com;b@yahoo.com;c@yahoo.com" 'mymail.importance = 0 'mymail.attachfile server.mapPath("./hello.txt"), "fileForYou" 'mymail.attachfile server.mapPath("./hello.txt") mymail.send ''myMail.HTMLBody = "

This is a message.

" set mymail= nothing response.write "

Details entered Successfully

" response.end end sub %>