Frågan#1
Jag har ett litet problem när jag ska logga in i adminen
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x2e8 Thread 0x474 DBC 0x10c2f01c Jet'.
/XcAuctionLite/auctionlib.asp, line 8
står det.
auctionlib.asp ser ut så här:
<!-- #include file="config.asp" -->
<%
gsEmbeddedCode = "<COMMENT>XcMainView</COMMENT>"
gsPageHeader = Server.MapPath("template.htm")
Sub OpenDBConn
Set GobjConnect = Server.CreateObject("ADODB.Connection")
GobjConnect.Open gsConnect
End Sub
Sub CloseDBConn
GobjConnect.Close
Set GobjConnect = Nothing
End Sub
Sub DoPageFooter
If UCase(Session("DEBUG")) = "ON" Then
Call ShowDebug
End If
If Len(Trim(gsPageFooter)) > 0 Then
OutputTemplate(gsPageFooter)
End If
End Sub
Sub OutputTemplate( psStream )
Dim lEmbeddedAt
sTemp = "" & psStream
If Len(Trim(sTemp)) > 0 Then
lEmbeddedAt = Instr(1, sTemp, gsAuxCode, 1)
If lEmbeddedAt > 0 Then
Response.Write( Left(sTemp, lEmbeddedAt - 1) )
Response.Write( Right(sTemp, Len(sTemp) - lEmbeddedAt - Len(gsAuxCode) + 1 ) )
Else
Response.Write( sTemp )
End IF
End If
End Sub
Function SQLStr(pvValue)
Dim sTemp
Select Case VarType(pvValue)
Case 0, 1:
SQLStr = "NULL"
Case 2, 3, 4, 5, 6:
sTemp = "" & pvValue
sTemp = Replace(sTemp, "'", "''")
SQLStr = "'" & sTemp & "'"
Case 7: 'DateTime
sTemp = FormatDateTime(pvValue)
sTemp = Replace(sTemp, "'", "''")
SQLStr = "'" & sTemp & "'"
Case 8: 'String
sTemp = pvValue
sTemp = Replace(sTemp, "'", "''")
If Len(Trim(sTemp)) > 0 Then
SQLStr = "'" & sTemp & "'"
Else
SQLStr = "NULL"
End If
Case Else
SQLStr = "NULL"
End Select
End Function
Function SQLBool(pvValue)
Dim sTemp
Select Case VarType(pvValue)
Case 0, 1:
SQLBool = "'N'"
Case 2, 3, 4, 5, 6:
If pvValue Then
SQLBool = "'Y'"
Else
SQLBool = "'N'"
End If
Case 8: 'String
sTemp = UCase(Left(Trim(pvValue), 1))
Select Case sTemp
Case "Y", "T", "1", "-":
SQLBool = "'Y'"
Case "N", "F", "0", "":
SQLBool = "'N'"
Case Else
SQLBool = "'N'"
End Select
Case 11:
If pvValue Then
SQLBool = "'Y'"
Else
SQLBool = "'N'"
End If
Case Else
SQLBool = "'N'"
End Select
End Function
Function SQLVal(pvValue)
Dim sTemp
Select Case VarType(pvValue)
Case 0, 1:
SQLVal = "NULL"
Case 2, 3, 4, 5, 6:
SQLVal = "" & pvValue
Case 8: 'String
sTemp = Trim(pvValue)
On Error Resume Next
SQLVal = "" & CDbl(sTemp)
If Err.Number <> 0 Then
Err.Clear
SQLVal = "NULL"
End If
Case 11:
SQLVal = "" & Cint(pvValue)
Case Else
SQLVal = "NULL"
End Select
End Function
Function SQLDate(pvDate)
Select Case VarType(pvDate)
Case 7: 'Date
If giSQLDateAsSystem Then
SQLDate = gsSQLDateDelimiter & FormatDateTime(pvDate,2) & " " & FormatDateTime(pvDate,4) & gsSQLDateDelimiter
Else
SQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(pvDate),4) & NumToStrLeadDigits(Month(pvDate),2) & NumToStrLeadDigits(Day(pvDate),2) & " " & FormatDateTime(pvDate,4) & gsSQLDateDelimiter
End If
Case 8: 'String
If IsDate(pvDate) Then
If giSQLDateAsSystem Then
SQLDate = gsSQLDateDelimiter & FormatDateTime(CDate(pvDate),2) & " " & FormatDateTime(CDate(pvDate),4) & gsSQLDateDelimiter
Else
SQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(CDate(pvDate)),4) & NumToStrLeadDigits(Month(CDate(pvDate)),2) & NumToStrLeadDigits(Day(CDate(pvDate)),2) & " " & FormatDateTime(CDate(pvDate),4) & gsSQLDateDelimiter
End If
Else
SQLDate = "NULL"
End If
Case Else
SQLDate = "NULL"
End Select
End Function
Function NumToStrLeadDigits(pvValue, piDigits)
Dim sTemp
sTemp = Trim("" & pvValue)
Do While Len(sTemp) < piDigits
sTemp = "0" & sTemp
Loop
NumToStrLeadDigits = sTemp
End Function
Sub ShowHTMLFile(psFile)
If Instr(psFile, "\") > 0 Then
sFile = psFile
Else
sFile = Server.MapPath(".") & "\" & psFile
End If
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(sFile)
sTemp = ts.ReadAll
ts.Close
If Len(Trim( "" & sTemp )) = 0 Then
'Could not open file
sTemp = "<B>Error</B><BR>File:" & sFile & " could not be read."
End If
Response.Write(sTemp)
End Sub
Sub Navigation
Response.Write("<A HREF=""default.asp.asp"">Home</A>")
Response.Write(" | ")
Response.Write("<A HREF=""newaddform.asp"">Place an Add</A>")
End Sub
Function FVal(pvValue)
Dim sTemp
Select Case VarType(pvValue)
Case 0, 1:
FVal = 0
Case 2, 3, 4, 5, 6:
FVal = pvValue
Case 8: 'String
sTemp = Trim(pvValue)
On Error Resume Next
FVal = CDbl(sTemp)
If Err.Number <> 0 Then
Err.Clear
FVal = 0
End If
Case Else
FVal = 0
End Select
End Function
Sub CheckLoginInfo
If IsLoggedOn Then
Call AdminNavigation
Else
Response.Write("Sorry, but you are not logged on.<BR>")
Response.Write("<A HREF=""adminlogin.asp"">Click here</A> to log in.")
End If
End Sub
Sub DoPageHeader
Dim sPrePageFooter
Dim lEmbeddedAt
gsPageFooter = Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(70) & _
Chr(79) & Chr(78) & Chr(84) & Chr(32) & Chr(83) & Chr(73) & Chr(90) & Chr(69) & _
Chr(61) & Chr(34) & Chr(49) & Chr(34) & Chr(62) & Chr(60) & Chr(69) & Chr(77) & _
Chr(62) & Chr(84) & Chr(114) & Chr(97) & Chr(110) & Chr(115) & Chr(109) & Chr(105) & _
Chr(116) & Chr(116) & Chr(101) & Chr(100) & Chr(58) & Chr(32) & Now
gsPAgeFooter = gsPageFooter & Chr(60) & Chr(47) & Chr(69) & Chr(77) & Chr(62) & Chr(32) & Chr(38) & Chr(110) & _
Chr(98) & Chr(115) & Chr(112) & Chr(59) & Chr(68) & Chr(114) & Chr(105) & Chr(118) & _
Chr(101) & Chr(110) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(60) & Chr(65) & _
Chr(32) & Chr(72) & Chr(82) & Chr(69) & Chr(70) & Chr(61) & Chr(34) & Chr(104) & _
Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(119) & Chr(119) & _
Chr(119) & Chr(46) & Chr(120) & Chr(99) & Chr(101) & Chr(110) & Chr(116) & Chr(46) & _
Chr(99) & Chr(111) & Chr(109) & Chr(34) & Chr(62) & Chr(88) & Chr(99) & Chr(65) & _
Chr(117) & Chr(99) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(76) & _
Chr(105) & Chr(116) & Chr(101) & Chr(60) & Chr(47) & Chr(65) & Chr(62) & Chr(60) & _
Chr(47) & Chr(70) & Chr(79) & Chr(78) & Chr(84) & Chr(62)
sPrePageFooter = gsPageFooter
sTemp = ""
If Len(Trim(gsPageHeader)) > 0 Then
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(gsPageHeader)
sTemp = ts.ReadAll
ts.Close
Set ts = Nothing
Set fs = Nothing
On Error Goto 0
End If
If Len(Trim(sTemp)) = 0 Then
sTemp = "<TITLE>FLASH</TITLE>"
End If
lEmbeddedAt = Instr(1, sTemp, gsEmbeddedCode, 1)
If lEmbeddedAt > 0 Then
gsPageFooter = sPrePageFooter & Right(sTemp, Len(sTemp) - lEmbeddedAt - Len(gsEmbeddedCode) + 1)
sTemp = Left(sTemp, lEmbeddedAt - 1)
End If
OutputTemplate(sTemp)
End Sub
Function IsLoggedOn()
If Session("LoggedOn") = "YES" Then
IsLoggedOn = True
Else
IsLoggedOn = False
End If
End Function
Sub AuctionNavigation
Response.Write("<A HREF=""default.asp"">Auction Home</A>")
If bShowAddNewLink Then
Response.Write(" | ")
Response.Write("<A HREF=""addnewform.asp"">Add Item to Auction</A>")
End If
Response.Write(" | ")
Response.Write("<A HREF=""register.asp"">Register</A>")
Response.Write("<BR>")
Response.Write("<A HREF=""changepassword.asp"">Change Password</A>")
Response.Write(" | ")
Response.Write("<A HREF=""changereglogin.asp"">Change Registration Info.</A>")
End Sub
Function IsLoggedOn()
If Session("LoggedOn") = "YES" Then
IsLoggedOn = True
Else
IsLoggedOn = False
End If
End Function
%>
jag tänkte att det måste vara något fel med databaskopplingen men den funkar ju för användarna av auktionen på http://www.costodia.com/XcAuctionLite/ och det är samma koppling.
sen finns det även en annan koppling som det kan vara fel på i admin katalogen, i admconfig.asp
<%
gsConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../scripts/XcAuctionLite.mdb")
%>
Annar kan jag rekonomdera XcAuctionLite, finns att ladda ner på http://www.xcent.com/
tack på förhand,
------------------
Mvh Martin Persson
www.Costodia.com