E che errore ti da?
E che errore ti da?
Sicut Nox Silentes
scusate andate alla pagina www.ziopaperone.biz ed ecco l'errore
Data source name not found and no default driver specified
Secondo me l'errore lo devi cercare qui: Connections/cnnAnnunci.asp
Avrai sbagliato la stringa di connessione o il nome del database.
Sicut Nox Silentes
Concordo! Facci vedere la stringa di connessione
ragazzi se vi mando tt il file lo sapete corregere?
cmq questa è tt l'intestazione
<%@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
%>
<html>
<head>
<title>home</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="stile.css" type="text/css">
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
e cmq il file l ho preso emule se volete vi mando tt i file, a me serve per allenamento
Devi farci vedere il file cnnAnnunci.asp altrimenti non vediamo se la connessione è giusta o no
Dimenticavo, devi dirci anche in che cartella metti il database e in che cartella si trova cnnAnnunci.asp e a quale livello rispetto alla cartella del database (se allo stesso o se una superiore o se inferiore, cioè se la pagina cnnAnnunci.asp posizionata direttamente nella root).
file cnnannunci.asp
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_cnnAnnunci_STRING = "dsn=Annunci;"
%>
non è facile mettere mano a pagine generate da Dreamweaver
in ogni caso dato che usa i DSN devi impostarlo in CONNESSIONI ODBC dentro al Pannello di Controllo...
ovviamente il DSN in questione è "annunci"
nn ci capisco niente... cosa è il pannello di controllo?
io sono sempre lieto di aiutare
però se non hai minimamente idea di cosa stai affrontando è difficile sperare di risolverlo in breve...
sono più favorevole all'apprendimento che all'assistenza online.
in ogni caso
START / IMPOSTAZIONI / PANNELLO DI CONTROLLO
Permessi di invio
Rispondi quotando