problemino

**thislove** · 11-08-2006, 10:35

ho scaricato un sito in asp comprensivo di database, il problema è che non lo riesco a farlo avviare in una pagina del mio browser, come devo fare a provarlo?

**michele.santoro** · 11-08-2006, 10:38

Devi aver installato nel tuo computer IIS

**thislove** · 12-08-2006, 09:19

gia fatto ma nn funziona lo stesso

**michele.santoro** · 12-08-2006, 10:54

Che vuol dire "... nn funziona lo stesso"? Ti dà qualche errore? Si carica all'infinito senza mostrarti nulla? Oppure .... dicci qualcosa di più altrimenti come facciamo ad aiutarti?

Se nel tuo Browser digiti http://localhost cosa vedi?

**thislove** · 12-08-2006, 11:16

ok ora riesco a vedere ma ho un problemino nell'intestazione del messaggio, data la mia poca esperienza in asp potete spiegarmi se ce qualche errore in questo script:

<%@LANGUAGE="VBSCRIPT"%> <% set RsTotali = Server.CreateObject("ADODB.Recordset") RsTotali.ActiveConnection = MM_cnnAnnunci_STRING RsTotali.Source = "SELECT * FROM ANNUNCI" RsTotali.CursorType = 0 RsTotali.CursorLocation = 2 RsTotali.LockType = 3 RsTotali.Open() RsTotali_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count RsTotali_total = RsTotali.RecordCount ' set the number of rows displayed on this page If (RsTotali_numRows < 0) Then RsTotali_numRows = RsTotali_total Elseif (RsTotali_numRows = 0) Then RsTotali_numRows = 1 End If ' set the first and last displayed record RsTotali_first = 1 RsTotali_last = RsTotali_first + RsTotali_numRows - 1 ' if we have the correct record count, check the other stats If (RsTotali_total <> -1) Then If (RsTotali_first > RsTotali_total) Then RsTotali_first = RsTotali_total If (RsTotali_last > RsTotali_total) Then RsTotali_last = RsTotali_total If (RsTotali_numRows > RsTotali_total) Then RsTotali_numRows = RsTotali_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RsTotali_total = -1) Then ' count the total records by iterating through the recordset RsTotali_total=0 While (Not RsTotali.EOF) RsTotali_total = RsTotali_total + 1 RsTotali.MoveNext Wend ' reset the cursor to the beginning If (RsTotali.CursorType > 0) Then RsTotali.MoveFirst Else RsTotali.Requery End If ' set the number of rows displayed on this page If (RsTotali_numRows < 0 Or RsTotali_numRows > RsTotali_total) Then RsTotali_numRows = RsTotali_total End If ' set the first and last displayed record RsTotali_first = 1 RsTotali_last = RsTotali_first + RsTotali_numRows - 1 If (RsTotali_first > RsTotali_total) Then RsTotali_first = RsTotali_total If (RsTotali_last > RsTotali_total) Then RsTotali_last = RsTotali_total End If %> <% ' *** 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("username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="Livello" MM_redirectLoginSuccess="index.asp" MM_redirectLoginFailed="errore.htm" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_cnnAnnunci_STRING MM_rsUser.Source = "SELECT Username, Password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM MEMBRI WHERE Username='" & MM_valUsername &"' AND Password='" & CStr(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 false 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 %>

**michele.santoro** · 12-08-2006, 11:22

Lo script lo devi inserire tra i tag "code" e "/code" (al posto degli apici vanno le parentesi quadre [ e ])

codice:

 qui va lo script

altrimenti diventa illeggibile
Prova a ripostarlo inserendolo tra i tag

**saltodifondi** · 12-08-2006, 11:24

Originariamente inviato da thislove

<%@LANGUAGE="VBSCRIPT"%> <% set RsTotali = Server.CreateObject("ADODB.Recordset") RsTotali.ActiveConnection = MM_cnnAnnunci_STRING RsTotali.Source = "SELECT * FROM ANNUNCI" RsTotali.CursorType = 0 RsTotali.CursorLocation = 2 RsTotali.LockType = 3 RsTotali.Open() RsTotali_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count RsTotali_total = RsTotali.RecordCount ' set the number of rows displayed on this page If (RsTotali_numRows < 0) Then RsTotali_numRows = RsTotali_total Elseif (RsTotali_numRows = 0) Then RsTotali_numRows = 1 End If ' set the first and last displayed record RsTotali_first = 1 RsTotali_last = RsTotali_first + RsTotali_numRows - 1 ' if we have the correct record count, check the other stats If (RsTotali_total <> -1) Then If (RsTotali_first > RsTotali_total) Then RsTotali_first = RsTotali_total If (RsTotali_last > RsTotali_total) Then RsTotali_last = RsTotali_total If (RsTotali_numRows > RsTotali_total) Then RsTotali_numRows = RsTotali_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RsTotali_total = -1) Then ' count the total records by iterating through the recordset RsTotali_total=0 While (Not RsTotali.EOF) RsTotali_total = RsTotali_total + 1 RsTotali.MoveNext Wend ' reset the cursor to the beginning If (RsTotali.CursorType > 0) Then RsTotali.MoveFirst Else RsTotali.Requery End If ' set the number of rows displayed on this page If (RsTotali_numRows < 0 Or RsTotali_numRows > RsTotali_total) Then RsTotali_numRows = RsTotali_total End If ' set the first and last displayed record RsTotali_first = 1 RsTotali_last = RsTotali_first + RsTotali_numRows - 1 If (RsTotali_first > RsTotali_total) Then RsTotali_first = RsTotali_total If (RsTotali_last > RsTotali_total) Then RsTotali_last = RsTotali_total End If %> <% ' *** 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("username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="Livello" MM_redirectLoginSuccess="index.asp" MM_redirectLoginFailed="errore.htm" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_cnnAnnunci_STRING MM_rsUser.Source = "SELECT Username, Password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM MEMBRI WHERE Username='" & MM_valUsername &"' AND Password='" & CStr(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 false 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 %>

E' uno scherzo vero?

**michele.santoro** · 12-08-2006, 11:26

Uno scherzo in che senso? metti lo script tra i tag che ti ho indicato altrimenti come si fa a leggerlo nella maniera in cui lo posti tu?

**michele.santoro** · 12-08-2006, 11:30

Se lo script è così come lo hai postato non può funzionare. Le righe devono andare a capo nei punti giusti e non possono essere scritte tutte di seguito.
Ad esempio:

codice:

<%@LANGUAGE="VBSCRIPT"%> 
<% 
set RsTotali = Server.CreateObject("ADODB.Recordset") 
RsTotali.ActiveConnection = MM_cnnAnnunci_STRING 
....
....
%>

Tanto per riportare la prima parte del tuo codice.
Dicci dove l'hai preso così possiamo vederlo.

**thislove** · 12-08-2006, 12:00

cosi?

<%@LANGUAGE="VBSCRIPT"%>

<%
set RsTotali = Server.CreateObject("ADODB.Recordset")
RsTotali.ActiveConnection = MM_cnnAnnunci_STRING
RsTotali.Source = "SELECT * FROM ANNUNCI"
RsTotali.CursorType = 0
RsTotali.CursorLocation = 2
RsTotali.LockType = 3
RsTotali.Open()
RsTotali_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
RsTotali_total = RsTotali.RecordCount

' set the number of rows displayed on this page
If (RsTotali_numRows < 0) Then
RsTotali_numRows = RsTotali_total
Elseif (RsTotali_numRows = 0) Then
RsTotali_numRows = 1
End If

' set the first and last displayed record
RsTotali_first = 1
RsTotali_last = RsTotali_first + RsTotali_numRows - 1

' if we have the correct record count, check the other stats
If (RsTotali_total <> -1) Then
If (RsTotali_first > RsTotali_total) Then RsTotali_first = RsTotali_total
If (RsTotali_last > RsTotali_total) Then RsTotali_last = RsTotali_total
If (RsTotali_numRows > RsTotali_total) Then RsTotali_numRows = RsTotali_total
End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (RsTotali_total = -1) Then

' count the total records by iterating through the recordset
RsTotali_total=0
While (Not RsTotali.EOF)
RsTotali_total = RsTotali_total + 1
RsTotali.MoveNext
Wend

' reset the cursor to the beginning
If (RsTotali.CursorType > 0) Then
RsTotali.MoveFirst
Else
RsTotali.Requery
End If

' set the number of rows displayed on this page
If (RsTotali_numRows < 0 Or RsTotali_numRows > RsTotali_total) Then
RsTotali_numRows = RsTotali_total
End If

' set the first and last displayed record
RsTotali_first = 1
RsTotali_last = RsTotali_first + RsTotali_numRows - 1
If (RsTotali_first > RsTotali_total) Then RsTotali_first = RsTotali_total
If (RsTotali_last > RsTotali_total) Then RsTotali_last = RsTotali_total

End If
%>

ps:cmq nn lo detto io: è uno scherzo?"

Discussione: problemino

Strumenti discussione

Ricerca discussione

Visualizza

problemino

Permessi di invio