Background feature in Windows 7
Wow, just got a new feature in Windows 7. So, just thought of sharing it
Are u bored of White backgrounds, Here's a way to change it............
For that first make sure W7FBC is downloaded on your machine.If u don't have dis one just follow the below link
http://www.softpedia.com/get/Desktop-Enhancements/Other-Desktop-Enhancements/Windows-7-Folder-Background-Changer.shtml
Just follow below steps n set it to your favorite one.
Steps for change -
1) Open the .exe file.
2) Select folder location
3) Select change background option
4) Choose the image
Did u notice some changes, the background has changed.You can do it for any folder.
Thank god now am not forced to white background :P
Content by: Suraj Shukla
Written by: Prachi Gupta
Code for making your own Email sending tool through classic asp
Hello folks
Today I am sharing code for making your own mail Sending tool through Classic asp. I hope this might be helpful for you.
Required : Prior Knowledge of Classic ASP.
Code:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<% Response.Buffer = True %>
<%
'Declaring Variables
Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Email
Dim ContactUs_Subject,ContactUs_Body,Action,IsError
' Edit these 3 values accordingly.. leave the smtp server alone as it is set for Gmail
smtpserver = "smtp.gmail.com"
youremail = "********@gmail.com"
yourpassword = "*********"
' Grabbing variables from the form post
ContactUs_Name = Request("ContactUs_Name")
ContactUs_Email = Request("ContactUs_Email")
ContactUs_Subject = Request("ContactUs_Subject")
ContactUs_Body = Request("ContactUs_Body")
Action = Request("Action")
' Used to check that the email entered is in a valid format
Function IsValidEmail(Email)
Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
End If
End If
If BadFlag = True Then ValidFlag = False
IsValidEmail = ValidFlag
End Function
%>
<html>
<head>
<title></title>
</head>
<body style="font-family: Arial; font-size: 12px">
<%
If Action = "SendEmail" Then
' Here we quickly check/validate the information entered
' These checks could easily be improved to look for more things
If IsValidEmail(ContactUs_Email) = "False" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a valid email address.</font><br>")
End If
If ContactUs_Name = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Name.</font><br>")
End If
If ContactUs_Subject = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Subject.</font><br>")
End If
If ContactUs_Body = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Body.</font><br>")
End If
End If
' If there were no input errors and the action of the form is "SendEMail" we send the email off
If Action = "SendEmail" And IsError <> "Yes" Then
Dim strBody
' Here we create a nice looking html body for the email
strBody = strBody & "<font face=""Arial"">Contact Us Form submitted at " & Now() & vbCrLf & "<br><br>"
strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "<br>"
strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "<br>"
strBody = strBody & "Name" & " : " & " " & Replace(ContactUs_Name,vbCr,"<br>") & "<br>"
strBody = strBody & "Email" & " : " & " " & Replace(ContactUs_Email,vbCr,"<br>") & "<br>"
strBody = strBody & "Subject" & " : " & " " & Replace(ContactUs_Subject,vbCr,"<br>") & "<br>"
strBody = strBody & "<br>" & Replace(ContactUs_Body,vbCr,"<br>") & "<br>"
strBody = strBody & "</font>"
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 'Use SSL for the connection
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = youremail
ObjSendMail.Subject = ContactUs_Subject
ObjSendMail.From = ContactUs_Email
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = strBody
ObjSendMail.Send
Set ObjSendMail = Nothing
' change the success messages below to say or do whatever you like
' you could do a response.redirect or offer a hyperlink somewhere.. etc etc
%>
<font size="2">Your message as seen below has been sent. Thank You !!
<br><br>
<font color="blue">
<% =Replace(ContactUs_Body,vbCr,"<br>") %>
</font>
</font>
<% Else %>
<form action="contact_us.asp" method="POST">
<input type="hidden" name="Action" value="SendEmail">
<font size="2">Contact Us:</font>
<br><br>
<table border="0" cellspacing="1">
<tr>
<td valign="top">
Name:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Name" size="35" value="<% =ContactUs_Name %>">
</td>
</tr>
<tr>
<td valign="top">
Email:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Email" size="35" value="<% =ContactUs_Email %>">
</td>
</tr>
<tr>
<td valign="top">
Subject:
</td>
<td colspan="2">
<input type="text" name="ContactUs_Subject" value="<% =ContactUs_Subject %>" size="35">
</td>
</tr>
<tr>
<td valign="top">
Message:
</td>
<td valign="top">
<textarea rows="10" name="ContactUs_Body" cols="40"><% =ContactUs_Body %></textarea>
</td>
</tr>
<tr>
<td valign="top">
</td>
<td colspan="2">
<input type="submit" value="Send Message">
</td>
</tr>
</table>
</form>
<% End If %>
</body>
</html>
~~ Suraj Shukla
Earn your pocket money through Android phone # 1
Song Quest
Are you a student or without job, Now you can earn through your Android Phone.
How ? just read it.
Please keep one thing in mind that it is 100 % genuine as i just had a recharge of 75 rs. and one of my friend earned 300 rs. So it simply depends on you, or just have a try may be it can pay you.It gives a recharge of Rs.10 once you join and for each invite u will get 25 rs. (u can redeem that after 2 successful invites)
How
A. For Beginners
1. Visit this link through your android phone Song Quest.
2. Install it through Play Store (Time depends on your internet connection)
3. After Downloading open the app and click on "Play as a Guest"
4. Click on "Get Talk Time" it will link you to "Welcome to rewards" Page.Click on "Get Started".
5. Now on the upper side it shows no. of pages, just move to 2nd page as u just joined the app. Now Redeem Your Joining Bonus by clicking on "Redeem" Button.
6. Enter Redeem amount as 10 and mobile operator's details. Click on "Redeem" n wait for 2 min as it checks ur details (so make sure you enter the correct mobile number in which u r accessing net).
7. It will give u recharge of Rs. 10 through Paytm. Do u wanna earn more thn u have to rad more :D.
B. For Earning more
You can earn more through inviting your friends in Song Quest (For that application should be installed on your phone)
1. Open the application and click on "Play as a Guest"
2. Click on "Get Talk Time" it will link you to "Welcome to rewards" Page.Click on "Get Started".
3. Your successful invites and current talk time would be 0. For increasing it You have 2 options.
a. Invite through free messages given by the Song Quest. For that click on "Invite through Free Sms" thn select the contact/s and click on "Invite" on the Right top of page.
b.Click on "Invite" button and invite your friends through other application like whatsapp, facebook, gmail, etc.
4. Make sure your friend/s install the app from the same link.
The no. of successful invites can make ur day :)
Terms and Conditions
1. Unlimited internet connection (Apk size - 21 MB)
2. 21 MB space in your Android Phone
We will soon post more ways to Earn. Happy Earning :) Comment with the recharge amount u got :D
~~ Content by Suraj Shukla
~~ Written by Prachi Gupta
Subscribe to:
Posts (Atom)