asp på win 2003

Øøøhh... måske skulle du lige forklare hvordan dit login fungerer?

<%if request("comebackto") <> "" then
        sReferer = request("comebackto")
        sGoBackTo = "?" & request.querystring
    end if

    function Crypt(sText)
        'Removed for security
        Crypt = sText
    end function

    sub AskForLogin(sText)
   
    if sText <> "" then
        sMessage = "<p class=""smallertext"">" & sText & "</p>"
    else
        if sReferer <> "" then
            sMessage = "<p class=""smallertext"">Denne del kræver at du logger ind</p>"   
        end if
    end if
%>
      <br>
      <form action="login.asp<%=sGoBackTo%>" method="post">
        <table border=0 cellspacing=0 cellpadding=0 width="100%">
          <tr>
            <td>
              <p class="smallaction" align="center"> Log ind p&aring; Counselor.dk
                <script language="JavaScript" type="text/javascript">
            <!--
            if ((navigator.cookieEnabled?true:false) == false)
            document.write ("Denne service kræver at du har cookies enabled i din browser.<br><br>");
            --></script>
              </p>
              <table border=0 width="95%" align="center">
                <tr>
                  <td class="smallerheader" width="154">Brugernavn</td>
                  <td width="322">
                    <input type="text" name="txtUserName" class="tbflat">
                  </td>
                  <td rowspan="7" valign="top" width="224">
                    <p class="smallaction">&nbsp;
                    <p class="smallaction">&nbsp;</p>
                  </td>
                </tr>
                <tr>
                  <td class="smallerheader" width="154" height="13">Password</td>
                  <td width="322" height="13">
                    <input type="password" name="txtPassword" class="tbflat">
                  </td>
                </tr>
                <tr>
                  <td class="smallerheader" width="154" height="19">Husk mig!!</td>
                  <td width="322" height="19">
                    <input type="checkbox" name="chkRemember" value="1">
                    Kun hvis du er den eneste bruger af computeren!!</td>
                </tr>
                <tr>
                  <td width="154" height="22"></td>
                  <td width="322" height="22">
                    <input type="submit" name="cmdLogin" value=" Login" class="cmdflat">
                  </td>
                </tr>
                <TR>
                  <TD width="154">&nbsp;</TD>
                  <TD width="322">&nbsp;</TD>
                </TR>
                <TR>
                  <TD width="154"><b>Ny bruger?</b></TD>
                  <TD width="322"><a href="register.asp<%=sGoBackTo%>"><b>Ja
                    registrer mig Nu!</b></a></TD>
                </TR>
                <TR>
                  <TD width="154" height="22"> <b>Har du glemt dit kodeord</b>?<BR>
                  </TD>
                  <TD width="322" height="22" align="left" valign="middle"><a href="forgot.asp"><b>Ja
                    jeg har, send mig mit Password!</b></a></TD>
                </TR>
              </table>
              <p class="smallaction">&nbsp;</p>
            </td>
          </tr>
        </table>
      </form>
      <p>&nbsp;</p>
      <!--#include virtual="/dev/_footer.asp"-->

<%
    end sub

    if request("cmdLogin") <> "" then

        sUserName = request("txtUserName")
        sPassword = request("txtPassword")

        OpenDB sConnUsers

        sSQL = "SELECT * FROM Users WHERE UserName = '" & sUserName & "'"
        rs.Open sSQL, , , adCmdTable
        if not (rs.bof or rs.eof) then
            if rs("Password") = sPassword then
                'Login succeeded
                'Store info into session
                session("devUserName") = rs("UserName")
                session("devFullName") = rs("FirstName") & " " & rs("LastName")
                if request("chkRemember") <> "" then
                    response.cookies("devUserName") = Crypt(rs("UserName"))
                    response.cookies("devFullName") = Crypt(rs("FirstName") & " " & rs("LastName"))
                   
                    response.cookies("devUserName").expires = Date() + 365
                    response.cookies("devFullName").expires = Date() + 365

                    else
                    response.cookies("devUserName") = ""
                    response.cookies("devFullName") = ""
                    response.cookies("devUserName").expires = Date() - 365
                    response.cookies("devFullName").expires = Date() - 365
                end if
                rs("LastLogin") = now
                rs.update
                CloseDB
                if sReferer = "" then
                    response.redirect "/dev/index.asp"
                else
                    response.redirect sReferer
                end if
            else
                'Login failed
                AskForLogin "Forkert password."
            end if
        else
            AskForLogin "Forkerte oplysninger."
        end if
    else
        AskForLogin ""
    end if
%>

Jeg vil næsten skyde på at du skal tjekke dine cookie instillinger der er noget med at det kan drille på den nye server. Jeg kan ikke forklare dig hvor da jeg pillede den ned igen :o(

luker