<% dim fName dim title dim company dim address dim phone dim email dim url dim comments fname = request.Form("name") title = request.Form("title") Affiliation = request.Form("Affiliation") address = request.Form("address") phone = request.Form("phone") email = request.Form("email") subject = request.Form("subject") question = request.Form("question") %> Email processor <% Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") Dim txtSubject txtSubject = "Visitors Name :" & title & " " & name & vbcrlf & "Affiliation :" & Affiliation & vbcrlf _ & "address : " & address & vbcrlf & "phone# :" & phone & vbcrlf & "E-Mail:" & email & vbcrlf _ & "Question : " & question objCDO.To = "Info@unaablibrary.org" objCDO.From = email 'request.Form("email") 'objCDO.bcc = "someoneelse@SomeOtherPlace.com" objCDO.Subject = subject objCDO.Body = txtSubject objCDO.Send %>
Nimbe Adedipe Library

 


"Thank You
Your Question has been received!"
We will get back to you.
Home | Facilities | Services |Electronic Resources | Glossary | Contact us
Site Designed and Managed by Systems Maintenance Specialist Ltd