User Name: ">
Password : ">

Submit Here--> to get the links.
<% '------------ prot-pictures version 2.0 --------------- '------------- No not change anything below this line ---------------- J = 0 For I = 1 to NoUserNames If (Request("user")) = "" Then Msg = "User Name and/or Password is blank. Please fill both in." ElseIf (Request("pwd")) = "" Then Msg = "User Name and/or Password is blank. Please fill both in." ElseIf (Request("user")) <> UserName(I) Then Msg = "InValid User Name and/or Password. Please try again" ElseIf (Request("pwd")) <> Password(I) Then Msg = "InValid User Name and/or Password. Please try again" Else J = 1 End If Next '--------------If good show picture links ------ If J =1 Then Response.Write "

Picture Links:

" For I = 1 to NoPicMsg Response.Write "

" & PicMsg(I) & "


" Next Response.Write "

" End If If J = 0 Then Response.Write "

" & Msg & "

" %>