ADATTARE A SERVER 2003

**whois** · 15-03-2005, 16:00

QUESTO IL CODICE

codice:

<% Response.Buffer = True %>

<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("id"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="approve.asp"
  MM_redirectLoginFailed="default.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_connDUarticle_STRING
  MM_rsUser.Source = "SELECT U_ID, U_PASSWORD"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM USERS WHERE U_ID='" & Replace(MM_valUsername,"'","''") &"' AND U_PASSWORD='" & Replace(Request.Form("password"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And true Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>

COSA GENERA L'ERRORE?

GRAZIE

**mcviper909** · 15-03-2005, 16:01

Che errore ti da?

**whois** · 15-03-2005, 16:10

mi da impossibile visualizzare la pagina, http 500 errore interno del server

quando il login non va a buon fine mi riporta sulla pagina correttamente, in caso di estremi di autenticazione coretta, mi dà il messaggio di cui sopra.

**mcviper909** · 15-03-2005, 16:13

cosa c'è nella pagina che dovrebbe farti visualizzare?
cioè approve.asp

E poi mi piacerebbe anche vedere la connessione cioè questo file:
/news/admin/Connections/connDUarticleAdmin.asp

Non è che usi il ServerMapPath() e non parti dalla root?

**whois** · 15-03-2005, 16:19

questa è approve.asp

codice:

<% Response.Buffer = True %>
<html>
<head>
<title>DUarticle 1.0</title>
<link href="../assets/DUarticle.css" rel="stylesheet" type="text/css">
</head>
<body background="../assets/bg_main.gif" >
<table width="760" border="0" cellspacing="2" cellpadding="0">
  <tr> 
    <td>
	  
    </td>
  </tr>
  
  <tr> 
    <td>
      <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#003399">
        <tr>
          <td bgcolor="#FFFFFF">
		  
		  
		  
		 
		  
		  
		  </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td>
 
    </td>
  </tr>  
</table>
</body>
</html>

questa è la connessione

codice:

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_connDUarticle_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/DUarticle.mdb") 
%>

:master:

**mcviper909** · 15-03-2005, 16:27

Così a occhio e croce non vedo errori...

Certo se mi aiutassi dicendomi il tipo di errore....

Comunque se vuoi un consiglio ABBANDONA DREAMWEAVER oppure se proprio non ce la fai usalo solo come se fosse Notepad

**whois** · 15-03-2005, 16:31

innanzitutto ti ringrazio x la disponibilità.

riguardo l'errore ti ho scritto che in effetti mi genera:

impossibile visualizzare la pagina

http500 errore interno del server

**mcviper909** · 15-03-2005, 16:47

Su internet explorer: menu strumenti --> opzioni internet --> avanzate e declicca lavoce "Mostra messaggi di errore HTTP brevi".
Fai ripartire la pagina e guarda l'errore.

**ivanhalen** · 16-03-2005, 14:18

Conoscendo il DW e conoscendo i prodotti DUware mi viene da pensare: "ma tutti i file di inclusione ("inc_***.asp") sono dentro la cartella Connections? sicuro sicuro?"...
Insomma, ti consiglierei di controllare meglio i percorsi...

Discussione: ADATTARE A SERVER 2003

Strumenti discussione

Ricerca discussione

Visualizza

ADATTARE A SERVER 2003

Permessi di invio