Password Script

<%

Sub FormInput() %>

 	<form method=post action="logon.asp">

	<center>

 	<H1>Generic Logon</H1>

 	User Name:<input type=text size=20 name=username>

 	<br><br>

 	Password:<input type=password size=20 name=password>

 	<br><br>

 	<input type=submit name=submit value="Submit">

 	</center>

 	</form>

<% End Sub %>

<!--#include file="adovbs.inc" -->



<%

' *********** Password Login Code *********************

' *********** programmed by Robert Robbins ************

' *********** First Version 03/28/1999 ****************

' *********** Modified 09/26/2001 *********************

' *****************************************************

' Call Input Form subroutine

FormInput()



' Test for correct username and password

If Request.Form("submit") > "" Then



 	' Create session variable. Username needed for DataEntry.asp

 	Session("user") = ""



 	' Connect to table in database

 	Set cn = Server.CreateObject("ADODB.Connection")

 	Set rs = Server.CreateObject("ADODB.Recordset")

 	cn.Open "DSN Name"

 	strSQL = "SELECT * FROM TableName " & _

 	"WHERE UserName = '" & Trim(Request.Form("username")) & "' " & _

 	"AND Password = '" & Trim(Request.Form("password")) & "';"

 	rs.Open strSQL,cn,adOpenStatic,adLockPessimistic





  	' recordset will be EOF if username or password not found

  	If rs.EOF Then

    		' If password or username is incorrect, 

    		' write JavaScript code in HTML for an alert dialog box

    		Response.write "<Script Language=" & chr(34) & "JavaScript" & chr(34) & ">"

    		Response.write "alert(" & chr(34) & "Access Denied!" & chr(34) & ");" 

    		Response.write "</Script>"

   	Else 

    		' If password and username are correct, jump to DataEntry.asp

    		' Note: chr(34) is the double quotes character

        	Session("user") = Request.Form("username")

		Response.write "<Script Language=" & chr(34) & "JavaScript" & chr(34) & ">"

    		Response.write "window.location = " & chr(34) & "DataEntry.asp" & chr(34) & ""

    		Response.write "</Script>"

  	End If 

  	rs.Close 

 	cn.Close

 	Set rs = Nothing

 	Set cn = Nothing

End If

%> 

Password Protect Script

<%

' Set local variable username to Session variable user

username = Session("user")



' If username is an empty string, the user did not use logon.asp to login

If username = "" Then

 	Response.Write "Sorry, you are not logged in!<br>"

 	Session.Abandon

 	Response.End

End If

%>   

Email Script

Set Mailer = Server.CreateObject("CDONTS.NewMail")

Mailer.To = Request.Form("FullName") & " <" & Request.Form("Email") & ">"

Mailer.From = "Robert Robbins <" & "robert_robbins@verizon.net" & ">"

Mailer.Subject = "Testing Automated Email"

Mailer.Body = "My email message" & vbCrLf & "Second line"

Mailer.Send

Set Mailer = Nothing

SQL Server Connection

<%

Set cn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

strConn = "driver={SQL Server};server=Pentium;uid=sa;pwd=;database=Test"

cn.Open strConn

%>

Windows Script Host

' Windows Script Host File

' programmed by Robert S. Robbins 

' Open database connecection and get recordset

Const adOpenForwardOnly = 0

Const adLockPessimistic = 2

Set cn = WScript.CreateObject("ADODB.Connection")

Set rs = WScript.CreateObject("ADODB.Recordset")

cn.Open "DSN Name"

rs.Open "Select * From TableName",cn,adOpenForwardOnly,adLockPessimistic

While Not rs.EOF

 	message = rs("Message")

 	MsgBox message,64,"Database Message"

 	rs.MoveNext

Wend

VBScript 5.0 Regular Expression

<%

Set objFile = Server.CreateObject("Scripting.FileSystemObject")

Set inFile = objFile.OpenTextFile("D:\Temp\test.txt", 1)

strInput = inFile.ReadAll

inFile.Close

Set myTest = new RegExp

myTest.Pattern = "\w+,"

myTest.Global = True

myTest.IgnoreCase = True

Set myCollection = myTest.Execute(strInput)

For Each element In myCollection

 	Response.write element & "<BR>"

Next

%>