Server nedbrud
Server delen på min win XP maskine går helt kold når jeg forsøger at køre nedenstående side, vha. Http://localhost.Men ligger jeg den ud til en internet udbydder virker den upåklageligt.
Når jeg forsøger på at henter siden, bliver den ved med at loade siden i uendelighed og der kommer ingen fejlmeldinger.
Hvad kan der være galt ?
Siden ser ud som dette :
<html>
<head>
<title>TXT - MDB converter</title>
</head>
<body>
<font size="6" face="Tahoma">Database Updater</font><br>
<%'Faste variabler
Countx = 0
Lineseperator = "vbCrLf"
Seperator = ";"
Replacer = "´"
DBPath = "C:\Databaser\Littlewood\Astralis.mdb"
TXTPath = "C:\Databaser\Littlewood\Db.Txt"
Set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open & DBPath
set RS=Server.CreateObject("ADODB.recordset")
Function DelDB()
Rs.open "DELETE FROM AstUK WHERE CatNO <> '' ", conn
End Function
Function InsertToDB(Var1,Var2,Var3,Var4,Var5,Var6,Var7)
Rs.Open "INSERT INTO AstUk (CatNo, ItemNo, ItemText, PartItemNo, PartItemText, CustomerNo, CustomerName) VALUES ('" & Var1 & "', '" & Var2 & "', '" & Var3 & "', '" & Var4 & "', '" & Var5 & "', '" & Var6 & "','" & Var7 & "')", conn
End Function
'Sorteringen
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(TXTPath,1)
DelDB()
Do while f.AtEndOfStream<>true
ArrNew = Split(f.ReadLine, Lineseperator)
ArrLine = Split(ArrNew(0), Seperator)
InsertToDB RTrim(ArrLine(0)), RTrim(ArrLine(1)), Replace(RTrim(ArrLine(2)),"'",Replacer), RTrim(ArrLine(3)), Replace(RTrim(ArrLine(4)),"'",Replacer), RTrim(ArrLine(5)), RTrim(ArrLine(6))
Countx = Countx + 1
LOOP
set f=Nothing
set fs=Nothing
%>
<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath(TXTPath))
set f2=fs.GetFile(Server.MapPath(DBPath))
TxtLastMod = f.DateLastModified
DBLastMod = f2.DateLastModified
set f=nothing
set f2=nothing
set fs=nothing
%>
<br>
<font size="2" face="Tahoma">Last update arrived : <%=TxtLastMod%><br>
Last updated was made : <%=DBLastMod%><br>
<br>
<button onClick="java script:location.reload()">Update database</button><br><br>
Last update contained <%=Countx%> records. </font>
</body>
</html>
Need help fast.
