Gecko [ rhythmmedical.in ]

Name	Size	Permission
App_Data	[ DIR ]	drwxrwxrwx
RMD	[ DIR ]	drwxrwxrwx
assets	[ DIR ]	drwxrwxrwx
contact1	[ DIR ]	drwxrwxrwx
css	[ DIR ]	drwxrwxrwx
css1	[ DIR ]	drwxrwxrwx
fonts1	[ DIR ]	drwxrwxrwx
forms	[ DIR ]	drwxrwxrwx
ico1	[ DIR ]	drwxrwxrwx
img1	[ DIR ]	drwxrwxrwx
includes	[ DIR ]	drwxrwxrwx
js	[ DIR ]	drwxrwxrwx
js1	[ DIR ]	drwxrwxrwx
plugins	[ DIR ]	drwxrwxrwx
superadm	[ DIR ]	drwxrwxrwx
test	[ DIR ]	drwxrwxrwx
.user.ini	192 B	-rw-rw-rw-
Audemars-Piguet-Replica-Watche...	23.63 KB	-rw-rw-rw-
Awards.html	17.1 KB	-rw-rw-rw-
Breitling-Replica-Watches.html	23.34 KB	-rw-rw-rw-
Cardiac Resync Therapy.html	17.52 KB	-rw-rw-rw-
Implantable.html	17.41 KB	-rw-rw-rw-
Pocket Ecg.html	17.47 KB	-rw-rw-rw-
RMD.zip	219.22 MB	-rw-rw-rw-
Readme.txt	208 B	-rw-rw-rw-
Richard-Mille-Replica-Watches....	14.25 KB	-rw-rw-rw-
Roger-Dubuis-Replica-Watches.h...	24.17 KB	-rw-rw-rw-
Rolex-Replica-Watches.html	14.93 KB	-rw-rw-rw-
about-us.html	15.68 KB	-rw-rw-rw-
backup_oldwebsite_13june23.zip	2.05 MB	-rw-rw-rw-
bkup_without_blog.zip	34.91 MB	-rw-rw-rw-
blog-detail.php	3.59 KB	-rw-rw-rw-
blog.php	17.2 KB	-rw-rw-rw-
cardiac-resync-therapy.html	13.59 KB	-rw-rw-rw-
certification.html	15.76 KB	-rw-rw-rw-
changelog.txt	2.85 KB	-rw-rw-rw-
client_testimonial.js	12.72 KB	-rw-rw-rw-
contact-us.html	18.53 KB	-rw-rw-rw-
contact.html	23.34 KB	-rw-rw-rw-
contact_us.html	8.2 KB	-rw-rw-rw-
contactus.css	3.01 KB	-rw-rw-rw-
crtd-biventricular-pacemaker.h...	13.5 KB	-rw-rw-rw-
crtp-biventricular-pacemaker.h...	13.48 KB	-rw-rw-rw-
database_detail.txt	128 B	-rw-rw-rw-
device-monitoring.html	12.94 KB	-rw-rw-rw-
double-chamber-implantable.htm...	13.66 KB	-rw-rw-rw-
double-chamber-pacemaker.html	13.39 KB	-rw-rw-rw-
ecg-loop-recorder.html	13.3 KB	-rw-rw-rw-
favicon.ico	1.12 KB	-rw-rw-rw-
finalback_RMD_12oct2023_Webser...	220.99 MB	-rw-rw-rw-
follow-up.html	21.2 KB	-rw-rw-rw-
header.js	905 B	-rw-rw-rw-
implantable-defibrillators.htm...	14.05 KB	-rw-rw-rw-
index.php	9.3 KB	-rw-rw-rw-
index_old 15may night.html	56.19 KB	-rw-rw-rw-
index_old.html	42.93 KB	-rw-rw-rw-
index_recent_old.html	45.49 KB	-rw-rw-rw-
inner-page.html	8.73 KB	-rw-rw-rw-
mail.aspx	404 B	-rw-rw-rw-
mail.aspx.vb	4.37 KB	-rw-rw-rw-
mailsend.js	11.73 KB	-rw-rw-rw-
medical-tourism.html	14.07 KB	-rw-rw-rw-
pacemaker.html	17.57 KB	-rw-rw-rw-
partner.html	16.49 KB	-rw-rw-rw-
remote-monitoring.html	13.45 KB	-rw-rw-rw-
single-chamber-implantable.htm...	13.47 KB	-rw-rw-rw-
single-chamber-pacemaker.html	13.29 KB	-rw-rw-rw-
web.config	2.31 KB	-rw-rw-rw-

Code Editor : mail.aspx.vb

Imports System.Net.Mail
Imports System.Web.Services

Partial Class mail
    Inherits System.Web.UI.Page

<WebMethod()>
    Public Shared Function mainMail(ByVal varField1 As String, ByVal varField2 As String, ByVal varField3 As String) As String
        Try
            Dim body As String = ""
            Dim Smtp_Server As New SmtpClient()
            Dim mail As New MailMessage()
            'Smtp_Server.Credentials = New Net.NetworkCredential("inform@reckoncomputer.com", "Kg9ot&688")
			'Smtp_Server.Credentials = New Net.NetworkCredential("rmd@rhythmmedical.in", "rmdpl@4064895")
			Smtp_Server.Credentials = New Net.NetworkCredential("rmdinfo@rhythmmedical.in", "new@#1234_@#")
			
			
            Smtp_Server.Port = 25
            Smtp_Server.EnableSsl = False
            'Smtp_Server.Host = "mail.reckoncomputer.com"
			'Smtp_Server.Host = "secure.emailsrvr.com"
			Smtp_Server.Host ="windows.plesk15.com"

mail = New MailMessage()
            'mail.From = New MailAddress("inform@reckoncomputer.com")
			'mail.From = New MailAddress("rmd@rhythmmedical.in")
			mail.From = New MailAddress("rmdinfo@rhythmmedical.in")

'mail.To.Add("anjana@reckoncomputer.com")
			mail.To.Add("rmd@rhythmmedical.in")
			'mail.To.Add("reckon.anjana@gmail.com")
			mail.CC.Add("anjana@reckoncomputer.com")
			 
            mail.Subject = "Query from Website"

body = vbNewLine & "Client Name: " & varField1.Trim() & ","
            body &= vbNewLine & "Client Mobile No.: " & varField3.Trim() & ","
            body &= vbNewLine & "Client Query: " & varField2.Trim()
            body &= vbNewLine & vbNewLine & "Thanks"

mail.Body = body
            Smtp_Server.Send(mail)

Return "success~:~We will contact you shortly"
        Catch ex As Exception
            Return "error~:~" & ex.ToString
        End Try

End Function

<WebMethod()>
    Public Shared Function academyMail(ByVal varField1 As String, ByVal varField2 As String, ByVal varField3 As String, ByVal varField4 As String, ByVal varField5 As String, ByVal varField6 As String,ByVal varField7 As String, ByVal varField8 As String) As String
        Try
            Dim body As String = ""
            Dim Smtp_Server As New SmtpClient()
            Dim mail As New MailMessage()
           ' Smtp_Server.Credentials = New Net.NetworkCredential("inform@reckoncomputer.com", "Kg9ot&688")
			Smtp_Server.Credentials = New Net.NetworkCredential("rmdinfo@rhythmmedical.in", "new@#1234_@#")
			
            Smtp_Server.Port = 25
            Smtp_Server.EnableSsl = False
            'Smtp_Server.Host = "mail.reckoncomputer.com"

Smtp_Server.Host ="windows.plesk15.com"
            mail = New MailMessage()
            'mail.From = New MailAddress("inform@reckoncomputer.com")
			mail.From = New MailAddress("rmdinfo@rhythmmedical.in")
			'mail.To.Add("anjana@reckoncomputer.com")
			mail.To.Add("rmd@rhythmmedical.in")
			'mail.To.Add("reckon.anjana@gmail.com")
			mail.CC.Add("anjana@reckoncomputer.com")
			 
            'mail.To.Add("anjana@reckoncomputer.com")
			mail.Subject = "Query For Appointment"

body = "Client Name: " + varField1.Trim() 
			body &= vbNewLine & "Client Email: "  + varField2.Trim() 
			body &= vbNewLine & "Service For: "  + varField7.Trim() 
            body &= vbNewLine & "Ref Doctor: "  + varField8.Trim() 
            body &= vbNewLine & "Client Mobile No.: " + varField3.Trim() 
			body &= vbNewLine & "Date: "+   varField4.Trim() 
			body &= vbNewLine & "Time: " + varField5.Trim() 
            body &= vbNewLine & "Description: " + varField6.Trim()
			'" & varField5.Trim() & ","
            'body &= vbNewLine & "Client Query: " + varField4.Trim()
            body &= vbNewLine & vbNewLine & "Thanks"

mail.Body = body
            Smtp_Server.Send(mail)

'mail = New MailMessage()
            'mail.From = New MailAddress("inform@reckoncomputer.com")
            'mail.To.Add(varField2)
            'mail.Subject = "Query from Anjana Academy"
            'mail.Body = "Thanks for contacting us. The courses detail will be shared with you soon."
            'Smtp_Server.Send(mail)

Return "success~:~We will contact you shortly"
        Catch ex As Exception
            Return "error~:~" & ex.ToString
        End Try

End Function
   
End Class

${this.title}

Code Editor : mail.aspx.vb