Hej Bjørn
Du har en enkelt > for meget, - har vist hvor nedenfor.
--
Med venlig hilsen
Knud Westdorf
knud@westdorf.dk
www.jirty.dk
"Bjørn olesen" <support@service2001.dk> wrote in message
news:9tm127$i5h$1@sunsite.dk...
> Jeg har været ved at lave et lille java script der skal sende
> oplysninger fra en html-fil til en asp-fil. men kan ikke få det
> til at virke.. kan du hjælpe..
>
> problemet er at javascriptet skriver på skærmen
> src="count.asp?bw=800&bh=808">
> det vil sige at den har fundet men browser bredde og højde... men
> det skal jo ikke skrives på skærmen...?
>
> Html-filen...
> <script type="text/javascript">
> <!-- start
>
> if (document.all) {
> bw = document.body.clientWidth;
> bh = document.body.clientHeight;
> } else {
> bw = window.innerWidth;
> bh = window.innerHeight;
> }
>
> document.write ('<img height="1" width="1">')
--> Du skal lige fjerne sidste > ovenfor og erstatte med et mellemrum.
> document.write ('src="count.asp?bw=' + bw + '&bh=' + bh + '">')
>
> // slut -->
> </SCRIPT>
>
> asp-filen
> <%
> Set Con = Server.CreateObject("ADODB.Connection")
> DBPath =
> "DBQ=D:\websider\global\service2001.dk\service2001.dk\db\counter.
> mdb"
> Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
>
> Function fixQuotes( theString )
> fixQuotes = Replace( theString, "'", "''" )
> End Function
>
> If Session("Count") = "" Then
> Session("Count") = "Hit"
>
> Bwidth = Request("bw")
> Bheight = Request("bh")
> Tid = Time
> Dato = Date
>
> If Referent = "" Then
> Referent = "Direkte forespørgsel"
> End If
>
> Sql = "INSERT INTO count (bwidth, bheight, Tid, Dato) VALUES('" &
> fixQuotes(bwidth) & "','" & fixQuotes(bheight) & "','" &
> fixQuotes(Tid) & "','" & fixQuotes(Dato) & "')"
> Con.Execute(Sql)
>
> End If
> End If
> End If
> Con.Close
> Set Con = Nothing
>
> End If
> %>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials