National Lutheran Health & Medical Board

<% 'REsponse.Flush() IF Request.Form("firstName")<>"" Then function SendEmail (pstrSubject, pstrFName, pstrEmail) strTemplatePath =Request.ServerVariables("APPL_PHYSICAL_PATH") Dim objFile, objStream, strData, strFileLine set objFile = Server.CreateObject ( "Scripting.FileSystemObject" ) 'Response.Write(Server.MapPath(".")&"ContactUsTemplate.fmt") 'Response.Flush() set objStream = objFile.OpenTextFile(Server.MapPath(".")&"\ContactUsTemplate.fmt") Do While Not objStream.AtEndOfStream strFileLine = objStream.ReadLine strData = strData & vbCrLf & strFileLine Loop objStream.Close strData = Replace(strData, "", pstrFName) strData = Replace(strData, "", pstrEmail) 'response.Write(pstrFName) 'response.End() call Send ("auto@nlhmb.in", "contact@nlhmb.in", "", pstrSubject, strData) 'call Send (pstrLocation, pstrLocation, "", pstrSubject, strData) End function function Send ( pstrFromAddress, pstrToAddress, pstrCCAddress, pstrSubject, pstrMessage ) sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2'cdoSendUsingPort .Item(sch & "smtpserver") = "nlhmb.in" .update End With Set myMail=CreateObject("CDO.Message") Set myMail.Configuration = cdoConfig myMail.Subject=pstrSubject myMail.From=pstrFromAddress myMail.To=pstrToAddress if len(Trim(pstrCCAddress)) > 0 then myMail.CC = pstrCCAddress end if myMail.HTMLBody=pstrMessage myMail.Send 'Response.Write(Request.Form() & "

" & pstrToAddress) 'Response.Write(pstrMessage) 'Response.End() set myMail=nothing End Function %> <% strSubject = "Newsletter Registeration From NLHMB WebSite" strFName = Trim(Request.Form("firstName")) strEmail = Trim(Request.Form("email")) 'Response.Write(strSubject&strFName&strEmail & "

") call SendEmail(strSubject,strFName, strEmail) %> <% 'Response.Write("

" & Success & "

") 'REsponse.End() End if %>

Contact:

National Lutheran Health & Medical Board
'Martin Luther Bhawan'
95, Purusawalkam High Road
Chennai - 600010.
India.

Phone: 044 - 26432454, 26480933
Fax: 044 - 26431144

E-mail: contact@nlhmb.in

NLHMB » Newsletter Sign-Up

<% If request.Form("firstName")<>"" Then %>

Thank you for your interest.

<% Else %> GET IT HERE FIRST!

Write to us at contact@nlhmb.in or fill in the form below to receive the latest news at NLHMB and other exclusive updates.

<% End If %>

^Top

© 2007 National Lutheran Health & Medical Board. All rights reserved.	The NLHMB endorses all its group websites. External sites will open in a new browser window.