Medilink Hospital

<%@ Language = VBScript %> <% dim objMail dim strMailFrom, strSubject, strBody If Request.Form("cmdSubmit") <> "" then msg="Inquiry sent successfully." strMailFrom = Request.Form("txtMail") strSubject = "Inquiry from medilinkhospital.com" strBody="" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" if request.form("txtState") <> "" then strBody = strBody & "" end if if request.form("txtCountry") <> "" then strBody = strBody & "" end if strBody = strBody & "" strBody = strBody & "" strBody=strBody & "

Name :	" & Request.Form("txtName") & "
Address :	" & Request.Form("txtAddress") & "
Phone :	" & Request.Form("txtPhone") & "
City :	" & Request.Form("txtCity") & "
State :	" & Request.Form("txtState") & "
Country :	" & Request.Form("txtCountry") & "
E-Mail :	" & Request.Form("txtMail") & "
Information/Feedback :	" & Request.Form("txtInfo") & "

" Set objMail = Server.CreateObject("CDO.Configuration") dim objMessage dim objFields,objConfiguration Set objFields = objMail.Fields with objFields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPServer) = "66.96.217.102" '.Item(cdoSMTPServer) = "10.10.1.1" .Update end with Set objMessage = CreateObject("CDO.Message") with objMessage Set .Configuration = objMail .From=strMailFrom .AutoGenerateTextBody = False .To="info@medilinkhospital.com" '.To="bchoksi@minfo.local" .BCC="minfosys@minfo.co.in" .Subject=strSubject .HTMLBody = strBody .Send end with Set objMsg = Nothing End if %> Medilink Hospital

Appointment & Inquiry

	<%=msg%>
	Name *
	Address *
	Phone *
	City *
	State
	Country
	E-mail *
	Information * Required/ Feedback