Hjælp Fra ASP-fil til WSH -fil
jeg arbejder normalt med ASP, men har brug for at opdatere en mysql database løbende, jeg har noget asp-kode jeg som kan læse en logfil som kan på den server hvor asp-filen afvikles. de data der er i logfilen læses så over i en database på en anden server på www.Nå men til mit spørgsmål ! kan jeg afvikel denne kode på serveren hvis den laves om til en WSH-fil så jeg på den måde ikke behøver at køre iis på serveren.
jeg har noget kode der ser sådan ud:
Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile(server.mappath("hotel.log"))
antal =0
linienr=0
do while not fil.AtEndOfStream
Line = fil.readline
LineSplit = split(Line," ")
dato=trim(linesplit(0))
tid=trim(linesplit(1))
ip_adresse= trim(linesplit(4))
SQLserveradr="en_eller_anden_ipadresse"
SQLdatabase="min_database"
SQLlogin="login_navn"
SQLpassword="hemlig_password"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword
dato = DatePart("yyyy", dato) & "-" & DatePart("m", dato) & "-" & DatePart("d", dato)
SQL_Found = "SELECT * FROM log_tabel WHERE ip_adresse='"&ip_adresse&"' and dato ='" &dato& "' and log_tb_firma_id ="&Session("firmaID")
'Response.Write SQL_Found
'Response.end
Set Found = Conn.Execute(SQL_Found)
If Found.EOF or Found.BOF Then
SQL_Insert = "INSERT INTO log_tabel (dato,tidspunkt,ip_adresse, log_tb_firma_id) VALUES ( '"& dato &"' ,'"& tid &"','" & ip_adresse & "', '" & Session("firmaID") & "')"
Conn.Execute(SQL_Insert)
antal =antal +1
Else
End If
linienr=linienr+1
loop
set fil = nothing
set Found = nothing
jeg har prøvet at omdøbe den til test.wsh og så afvikle koden men det giver fejl "Der er ikke angivet nogen scriptfil" !!!
100 point for at tilrette koden så jeg kan afvikle koden gennem opgavestyring
