Je migre mon site en local depuis PWS W98 vers XP PRO sous iis
le Site fonctionnait impec sous PWS!!!
Voici L'erreur sous iis
J'ai tout essayé depuis 3 JOURS
Impossible de resoudre ce probleme
***********************************************
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié
/motordream/MOTORASP/homepage.asp, line 24
*************************************************
Voici pour info le code de la page default.htm
<%
If Cliprov ="" Then
Cliprov = Request("Cliprov")
If Cliprov = "" Then
LIB = ""
For I = 1 To 9
A = Int(26 * Rnd + 1) + 64
LIB = LIB & Chr(A)
Randomize
Next
Cliprov = LIB
LIB = ""
For I = 1 To 9
A = Int(26 * Rnd + 1) + 64
LIB = LIB & Chr(A)
Randomize
Next
Cliprov = Cliprov & LIB & Time
End If
Else
Cliprov = Request("Cliprov")
End If
Set OBJdbConnec = Server.CreateObject("ADODB.Connection")
OBJdbConnec.Open "MDM_VPI"
SQL = "SELECT datdyn FROM comdyn"
Set RSdatList = OBJdbConnec.Execute(SQL)
JJ = DateValue(Date)
Do While Not RSdatList.EOF
If (JJ - DateValue(RSdatList("datdyn"))) > 1 Then
SQL = "DELETE * FROM comdyn WHERE Cdate(datdyn) = '"& Cdate(RSdatList("datdyn")) &"'"
Set RSmaj1List = OBJdbConnec.Execute(SQL)
End If
RSdatList.MoveNext
Loop
RSdatList.Close
%>
<html>
<head>
*************************************************
Merci pour votre aide
