Register your details


[After complete your Registration demo will start automatically ..... ]
Enter your name *
Contact phone *
eMail ID
Speciality
Additional Questions
Powered by RndSoftech
<% if request.servervariables("Request_method") = "POST" then dim oSMTP On Error Resume Next Set oSMTP = Server.CreateObject("SMTPControl.SMTP") oSMTP.Server = "203.129.254.100" oSMTP.MailFrom = "register@emr.com" oSMTP.SendTo = "priyatm@rndsoftech.com" oSMTP.MessageSubject = "EMR Enquiry" oSMTP.MessageText = "Name: " & request.form("name") & vbcrlf & "Contact phone: " & request.form("phone") & vbcrlf & "eMail id: " & request.form("mail") & vbcrlf & "Speciality: " & request.form("speciality") & vbcrlf & "Additional questions: " & request.form("questions") & vbcrlf & vbcrlf & "This is an automated message." 'response.Write "Name: " & request.form("name") & vbcrlf & "Contact phone: " & request.form("phone") & vbcrlf & "eMail id: " & request.form("mail") & vbcrlf & "No of doctors in practice: " & request.form("doc") & vbcrlf & "Speciality: " & request.form("speciality") & vbcrlf & "Additional questions: " & request.form("questions") & vbcrlf & "Type of services : " & request.form("services") & vbcrlf & vbcrlf & "This is an automated message. customer@rndsoftech.com does not exist. Pls do not reply to this mail" 'response.End oSMTP.SendEmail If Err.Number <> 0 Then Response.Write "Error " & Err.Number & ": " & Err.Description Else Response.Write "" End If response.redirect "EmrDemo.wmv" end if %>