Inlägg

Primär skärm: Nec Multisync FE991SB (crt)
Sekundär skärm: Sony Sdm-S74 (tft)

http://www.komplett.se/k/ki.asp?sku=117353&cks=PRL

Det behövs alltså bara en eventuell bios uppdatering för att nforce 3/4 ska stödja venice modellen? Ska ju göra ett shuttle (sn25p nforce 4) inköp om en månad eller två, och det hade ju varit trevligt om moderkortet stödjer venice modellen :).

Det var inte Remotely anywhere?
Med det kan man fjärrstyra datorn och hänta filer via browsern.
Då behöver man bara skriva in ip:t och logga in, så det kan ju ha varit det.

Skriv dxdiag i kör så får du uppen massa information om direct x

Sitter med en Sony SDM-S74 17" tft som sekundär skärm/lan skärm.

Nu har jag inte sett flash spelet men är det tuffare än shockwave Q3 verisionen?

Tänk vad mycket skoj man kan göra med flash/shockwave och allt vad det heter bara man har kunskaperna :).

Kanske var stöd för spel över internet som dom skippade då?

Skulle inte GT 4 komma utan nätverksstöd eller är det bara eu verisionen som ska vara utan det? Eller hur var det? För det är ju nätverksstöd på amerikanska verisionen.

Fick mitt ex av GT4 i måndags och det är grymt :), billigt var det också 350 kr hos www.videogamesplus.com

Var ska man sätta in det i koden?
På det scriptet som jag kör nu hittar den bara en post, för det ska bara vara ett kundordernr, tror jag :p.

Edit:
Ah nu fick jag det att fungera.

Illa att man ska vara så trögtänkt ibland :).

Edit:
Nu har jag märkt att det är en bugg i indata scriptet.
Det missar att skriva ut första fältet på sista raden, "Regnr".
Oavsett om det är 250 rader eller 5 rader.
Och jag får då inte in i huvudet varför det blir så, tycker det borde bli fel tidigare och oftare om det är något konstigt med koden.

Här syns felet om du vill ha ett exempel :).
http://www.bilkompaniet.se/leveransinfo/sok3.asp

Indata.asp koden

<%@ Language="VBScript" %>
<%
dim filesys, readfile, content, arrInfo
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile(Server.MapPath("lager.txt"), 1, false)
readfile.Skipline
content = readfile.ReadAll
readfile.close
'Ny rad för att fixa att det inte är ett ; på slutet av varje rad
content = replace(content, vbcrlf, ";")
arrInfo = split(content, ";")

dim addera, Connect, Recordset, radera
Set Connect = CreateObject("ADODB.Connection")
connect.provider = "Microsoft.jet.oledb.4.0"
connect.Open "data source=" & server.mapPath("bilar.mdb")
Set RecordSet = CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblBil"

RecordSet.Open addera, Connect, 3, 3
Set radera = connect.Execute("DELETE * FROM tblBil;")
Recordset.AddNew
%>

<%
dim i, radslut, varde
radslut = 0
For i = 0 to uBound(arrInfo)
'Bort med dubbelfnutts och skriv inte ut de två sista posterna i skvfilen
varde = replace(arrInfo(i), """", "")

if radslut =< 30 then
'msgbox "uppdaterar: " & radslut & " " & varde
RecordSet.Fields.item(radslut) = varde
Else
'msgbox "uppdaterar INTE!: " & radslut & " " & varde
End if

'Kontrollera om det är dags att byta rad
if radslut = 31 then
'Det är det! Skriv ut en radbrytning och nollställ radslut.
radslut = 0
RecordSet.Update

'Lägg till nytt record om det finns mera värden i filen
if i <> uBound(arrInfo)-1 then
RecordSet.AddNew
End if
Else
'Om inte plussa på radslut variabeln
radslut = radslut +1
End if
Next
%>

<%
Recordset.Update
RecordSet.Close
Connect.Close
%>
Databasen rensad, ny data sparad.

Edit:
Om jag ändrar den här raden
if i <> uBound(arrInfo)-1 then
till
if i <> uBound(arrInfo)-2 then
Så får jag ju med alla värden fast ett tomt fält, den lösningen duger väl. Men det kanske finns någon bättre lösning.

Aha, hade fått för mig att man använde # staket när det var tal om datum/tal och ' när det är text :).

Dock så vore det fint med lite hjälp om hur man formulerar en if sats om inte värdet man söker på finns i databasen så man får upp en sida där det står att kundordernr inte finns istället för att man får ett felmedelande.
Det måste man ju kunna lösa enkelt med en if-sats och false, eller något :).

Det vore ju perfekt om man kunde skicka vidare användaren till en annan sida om sökningen inte fick någon träff i databasen.

Tackar det där hade jag aldrig kommit på :), däremot så hade jag nog testat 20 varianter på den som inte hade fungerat :). Nu ska väl alla problem vara lösta så jag får gå vidare från det här :).

Edit:
Nytt roligt problem som borde vara rättså lättlöst.
Jag ska göra en söksida där man kan skriva in ett kundordernr och söka i databasen efter det värdet. Så här ser själva söksidan ut.

sok.asp
<html>
<form method="POST" action="sok2.asp">
Ditt Kundorder nr:<br>
<input type="text" size="30" name="kundordernr"><p>

<input type="submit" value="Sök">

</form>

</html>

Och så här ser andra delen i söksidan ut.

sok2.asp
<%
Dim Connect, Addera
Set Connect = CreateObject("ADODB.Connection")
connect.provider = "Microsoft.jet.oledb.4.0"
connect.Open "data source=" & server.mapPath("levinfo.mdb")
Set RecordSet = CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblStatus WHERE fltKundordernr = #"& Request.form("kundordernr") & "#"
RecordSet.Open Addera, Connect, 3, 3
%>

<%= RecordSet("fltFordonsbsk")%>;
<%= RecordSet("fltCISOrderstat")%>;
<%= RecordSet("fltSistaandringsdat")%>;
<%= RecordSet("fltKundordernr")%>;
<%= RecordSet("fltLevdatumCISNuvarande")%>;
<%
RecordSet.Close
Connect.Close
%>

Och det här trevliga felmedelandet får jag, så som det verkar i felmedelandet läser ju scriptet in kundordernr rätt från sok.asp, men någonstans går det fel.

Feltyp:
Microsoft JET Database Engine (0x80040E07)
Syntaxfel i datum i frågeuttrycket 'fltKundordernr = #36565#'.
/levinfo/sok2.asp, line 8

Edit:
Nu fungerar det när jag ändrade kundnr fältet i databasen till text, och kör med ' fnuttar istället för #. Det är bara att inse databasen vill bara fungera åt mig när jag kör text när det ska vara tal som datatyp

Hum när jag kör <%=FormatDateTime(fltFakturadat, 2)%> så ändrar den så att det ser rätt ut, synd att alla rader får det här datumet bara 1899-12-30.

Hur använder jag funktionen left här?

<%=RecSet("fltFakturadat")%>

provade <%= left(fltFakturadat,3) %> men det vart ju inte så lyckat.

Datatypen i databasen är text på det jag vill få bort, men fungerar det ändå tro? För det gick inte att använda datum typ på det fältet.
Så här ser det ut i databasen.
2005-02-07-00.00.00

Det fungerade med det här också.
<%@ LANGUAGE=VBSCRIPT LCID=1053 %>

Om jag bara vill visa 10 bokstäver/siffror när jag hämtar data från ett fält, ska man inte kunna skriva in det i <%=10, funktion%> eller något?

Det är en bugg på xecuter 2.6 chippet när du använder det till en xbox 1.6/b. Så du måste lägga in bios:et på minnesbank 2 annars kommer du inte kunna starta några spel m.m, om du har bioset på minnesbank 1.
Bara så du vet, jag höll på att kasta ut xboxet bra många gånger innan jag fick reda på det.

Det ville sig inte det heller, nu tar jag lunch och ser om det kommer någonsnille blixt i huvudet efter man har fått lite frukost.

Edit:
Där kom snilleblixten, flummade runt i Running MS Access 2000 boken så hittade jag att man kunde köra "LIKE '[A-Ö]%' " så tar den alla saker som börjar på något i alfabetet från a till ö :).

Edit:
Nu är det trubbel igen, kom ju på att servern allt ska ligga på har ett engelskt os och då är datumet 2/02/2004. Hur gör jag för att definiera variabeln dat som är "dat = DateAdd("d", -120, date)" som ska vara i det här datumformatet 2004-02-02. Jag kan ju få till så att man skriver ut ett datum med year(now) - month(now) - day(now), men då ser datumet ut så här 2004-02-2.

Och sen hur man ska få in det i dateadd funktionen förstår jag inte.

LÖST

Edit:
Nytt problem hur gör man om man vill ta bort så att det bara står 2004-04-04 istället för 2004-04-04-00.00.00

Det ville sig inte alls, fast jag kanske har fattat fel hur du menar. Men jag har i alla fall testat dom flesta kombinationerna i Like <> null.
Antingen så visas ingenting eller så får jag syntaxfel.

Saknar sql övningsuppgifterna vi fick i skolan, jag har för mig att det fanns en hel del nyttiga uppgifter där, med is not null osv.

Jag kan ju inte påstå att jag har blivit mindre sugen på shuttle sn25p när jag läst recensionen på techreport.

Det fungerar inte att sätta ut paranteserna så där. Fick det att nästan fungera i alla fall med parantserna lite annorlunda. Fast då klagar den på.

Feltyp:
Microsoft JET Database Engine (0x80040E10)
Det har inte angetts något värde för en eller flera nödvändiga parametrar.
/skv/klar/begdagar.asp, line 29

Edit:

Nu fungerar det, jag kopierade in select delen i access och sen körde frågan, och efter det då kopierade jag sql koden från access och då fungerade det, helt otroligt.

d = "SELECT tblBil.fltRegnr, tblBil.fltArsmodell, tblBil.fltVagnspec, tblBil.fltFarg, tblBil.fltFakturadat, tblBil.fltInbytessalj FROM tblBil WHERE (((tblBil.fltFakturadat) Between '" & dat & "' And '2001-01-01') AND ((tblBil.fltInternvagn)=' ')) AND tblBil.fltFordonsstatus = 'Begagnad' ORDER BY tblBil.fltFakturadat"

Edit:
Hur gör jag om jag vill hämta alla poster där det står någonting i ett fält.

Så här ser koden ut nu, funderar på om man kan använda NotNull eller något liknande, eller om det finns något tecken för alla bokstäver i alfabetet så man kan köra LIKE '%konstigttecken'
d = "SELECT fltRegnr, fltArsmodell, fltVagnspec, fltFarg, fltInbytessalj, fltFakturadat, fltLagerplats, fltInternvagn FROM tblBil WHERE fltInternvagn LIKE '%' ORDER BY tblBil.fltLagerplats, tblBil.fltVagnspec ASC"