 |
| |
Services We Provide
- Web Designing
- Web Templates
- Web Hosting
- Web Promotion
- Web Solutions
- Domain Registration
- Graphic Designing
- Software Solutions
- Customized Software Solutions
- Scripting
- Hardware Solutions
- Hardware Troubleshooting
- Networking Solutions
- Networking Troubleshooting
- Email Hosting
- Email Solutions
- Business Email
- E-Commerce
- Data Recovery |
|
|
| |
|
|
|
|
|
|
| |
| |
| |
|
 |
|
 |
 |
| |
|
|
| |
| |
<%
' change to address of your own SMTP server
dim FirstName,LastName,eMail,phHome,phOffice,phMobile,coAdd,desc
FirstName=Request.Form("FirstName")
LastName=Request.Form("LastName")
eMail=Request.Form("eMail")
phHome=Request.Form("PhHome")
phOffice=Request.Form("PhOffice")
phMobile=Request.Form("PhMobile")
coAdd=Request.Form("coAddress")
desc=Request.Form("comments")
dim strBody
strBody="First Name :- " & FirstName
strBody = strBody & "
Last Name :-" & LastName
strBody = strBody & "
eMail :-" & eMail
strBody = strBody & "
Phone Home :-" & phHome
strBody = strBody & "
----- Office :-" & phOffice
strBody = strBody & "
----- Mobile/Pager :-" & phMobile
strBody = strBody & "
Co. Address :-" & coAdd
strBody = strBody & "
Comments :-" & desc
If Request("Send") <> "" Then
strMailServer = "mail.gceindia.com"
strFrom= eMail '' Request("From") ' From address
strFromName = FirstName ''Request("FromName") ' optional
''strTo = "info@gceindia.com"
strTo = "gceindia@gmail.com"
'Request.Form("To")
strMailComponent="CDOSYS"' (Win2k/XP Pro)"
'= Request("Component")
strMailFormat = "HTML"
' message subject
strSubject = Request("Subject")
' message body
strBody = strBody ''Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
call createMailObject(strMailComponent)
call SendMail(strTo, strFrom, strFromName, strSubject, strBody, strMailComponent, strMailFormat)
call dropMailObject(strMailComponent)
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<% If strErr <> "" Then %>
<% End If %>
|
|
|
| |
|
|
|
|
|
