Kan ikke få netscape til at virke på min søgefunktion
Hej ...
Jeg kan ikke få min søgefunmtion til at virke i netscape.
Sådan ser scriptet ud:
<script language="JavaScript"> var id var url
function openimage(id) { x = 0 y = 20; //soegverdi = document.form1.soeg.value tekst="imagewindow.asp?id=" + id var nyside = window.open(tekst,"Search","width=308,height=250,top="+ y +",left="+ x +",directories=no,status=no,menubar=no,scrollbars=no,resizable=no"); }
function seekauto() { if (window.event.keyCode == 13) { seeksome(); } }
function seeksome() { x = screen.width-420; y = 20; soegverdi = document.getElementById('seek').value ; if (soegverdi != 'Indtast søgeord' && soegverdi.length > 2) { tekst="search.asp?strvar=" + soegverdi var nyside = window.open(tekst,"Search","width=390,height=400,top="+ y +",left="+ x +",directories=no,status=no,menubar=no,scrollbars=yes,resizable=no"); } }
function openimage(id) { x = 0 y = 20; //soegverdi = document.form1.soeg.value tekst="imagewindow.asp?id=" + id var nyside = window.open(tekst,"Search","width=308,height=250,top="+ y +",left="+ x +",directories=no,status=no,menubar=no,scrollbars=no,resizable=no"); }
function seekauto() { if (window.event.keyCode == 13) { seeksome(); } }
function seeksome() { x = screen.width-420; y = 20; soegverdi = document.getElementById('seek').value ; if (soegverdi != 'Indtast søgeord' && soegverdi.length > 2) { tekst="search.asp?strvar=" + soegverdi var nyside = window.open(tekst,"Search","width=390,height=400,top="+ y +",left="+ x +",directories=no,status=no,menubar=no,scrollbars=yes,resizable=no"); } }
if id = "" then Set get_id_conn = Server.CreateObject("adodb.Recordset") get_id_conn_sql = "select top 1 * from main order by mainid" get_id_conn.Open get_id_conn_sql, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2 if get_id_conn.RecordCount <> "0" then id = get_id_conn.Fields(0) else id=-2 end if
end if 'id = 102
Set Conn = Server.CreateObject("adodb.Recordset") SQLstmt = "select * from main where mainid = -1" conn.Open SQLstmt, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2
Set Conn2 = Server.CreateObject("adodb.Recordset") SQLstmt2 = "select * from main where show=true" conn2.Open SQLstmt2, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2
if id <> "" then Set child = Server.CreateObject("adodb.Recordset") child_sql = "select * from main where mainid="&id child.Open child_sql, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2 end if
if (id <> "" and id>0) or id=-2 then Set submain_show_conn = Server.CreateObject("adodb.Recordset") submain_show_conn_sql = "select * from submain where mainid ="& id submain_show_conn.Open submain_show_conn_sql, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2 hesthest1 = "1" end if Set kiosk_show_conn = Server.CreateObject("adodb.Recordset") kiosk_show_conn_sql = "select * from kiosk where mainid="&id&" order by startdate" kiosk_show_conn.Open kiosk_show_conn_sql, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2
Set adress_show_conn = Server.CreateObject("adodb.Recordset") adress_show_conn_sql = "select * from bottom" adress_show_conn.Open adress_show_conn_sql, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/webdb.mdb"),1,2
Før vi har hørt fra nikolajdu, skal du nok ikke vente svar på dit spm. Han checker formodentlig IP m.m. - det plejer man på E, hvis flere brugere åbner spm. med samme indhold. Derudover må du skrive koden, efter den er parsed ... dvs, uden al dit ASP-crap.
Så ville jeg frygtelig gerne vide, hvad det betyder, at "Jeg kan ikke få min søgefunmtion til at virke i netscape". Hvad virker ikke? Kommer der fejl? Hvad siger din JavaScript Console om fejlen? Og så vil vi gerne se koden, som den ser ud ved 'View Source' i NS - ogg allerhelst en URL til siden, så vi selv kan teste.
Én fejl kan jeg dog se ... din funktion seekauto(), som skal se sådan ud:
function seekauto(e) { thisKey = (document.getElementById && !document.all)? e.which : event.keyCode; if (thisKey == 13) { seeksome(); } }
OMG ... vi har en antik-interesseret på linien :D Jamen, denne her linie: soegverdi = document.getElementById('seek').value skal så hedde: soegverdi = document.form1.seek.value;
Dernæst skal du ændre din seekauto() ... men jeg må indrømme min NS4X-hhukommelse er ved at være blevet lidt rusten og jeg har kodet hele natten (på vej i seng), så du må selv kikke bag dette link: http://www.dansteinman.com/dynduo/en/keystrokes.html Danny-drengen forklarer temmelig godt, så det skulle du selv kunne checke op på - ellers må vi se på det engang i eftermiddag/aften. Men prøv lige selv, først ;o)
En sidste ting: Du bør vænne dig til at lave nogle newlines '\n' og meget gerne nogle indrykninger '\t' i din ASP-kode, så din kode bliver pænere (View Source). På den måde slipper du for de kompakte kodeklumper, der gør det til et mindre helvede at debugge koden :) /mvh
tak for det... - jeg må nok indrømme at jeg ikke er den største javascript hej - så vi bliver nok nødt til at kigge på det i eftermiddag/aften :-)
... og jeg skal nok prøve at være mere flittig med mine \n' er :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.