The code looks like this. It use to work on our old server...
SO i know it's not that it just doesn't seem to work under apache asp.. and
it is an open source news script cause one of the members of our site wrote
it. So i am allowed to post it here.
Is this because it's vbscript? or what would be the problem?
<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<html>
<head>
<title>Login</title>
</head>
<body>
<h1>Authenticating...</h1>
<% 'NewsScript 2000 by PeteCorp Web Design
Dim filesys, nstream, pstream, npath, ppath, tmpn, tmpp
npath = Server.MapPath("db/names.txt")
ppath = Server.MapPath("db/passes.txt")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set nstream = filesys.OpenTextFile(npath, 1)
Set pstream = filesys.OpenTextFile(ppath, 1)
Do While Not nstream.AtEndOfStream
tmpn = nstream.ReadLine
tmpp = pstream.ReadLine
If LCase(Request.Form("username")) = LCase(tmpn) And
LCase(Request.Form("pass")) = LCase(tmpp) Then
'He's correct
Session("LoggedIn") = True
Session("Username") = Request.Form("username")
End If
Loop
nstream.Close
pstream.Close
Set filesys = Nothing
Set nstream = Nothing
Set pstream = Nothing
Set npath = Nothing
Set ppath = Nothing
Set tmpn = Nothing
Set tmpp = Nothing
If Session("LoggedIn") = False Then
Response.Write "<br>Failed!"
Else
Response.Write "<br>Done! Click <a href=postnews.htm>here</a> to post
news!"
End If
%>
</body>
</html>
----- Original Message -----
From: "Ruggero Manzoni" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, January 25, 2002 1:36 PM
Subject: Re:SErver Working thanks everyone..
> Hi Taylor,
> It is better if you send a piece of your code.
> The problem could be that you try to read a get like
> this:
>
> my $query = $Request->QueryString();
> my $user = $query->{'user'};
>
>
> Here how to read from a post:
> my $form = $Request->Form();
> my $message = $form->{'message'};
>
> Ciao
> Ruggero.
>
> ______________________________________________________________________
>
> Dillo con una cartolina!
> http://it.greetings.yahoo.com/
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
