Avatar billede marthin Nybegynder
28. november 2000 - 15:29 Der er 5 kommentarer

vb-script

<%
set dbobj=server.createobject (\"adodb.connection\")
dbobj.open \"dsn=juice\"

set rs=dbobj.execute (\"select * FROM forhandlerfor\")

do while not rs.EOF
  if rs(\"postnr\") = Cint(Request.querystring(\"postnr\")) then

    Response.Write(\"<a name=\"\"her\"\">\")
else
rs(\"postnr\") < Cint(Request.querystring(\"postnr\")) +100

Response.Write(\"<a name=\"\"her\"\">\")
  end if

Når man taster et postnummer i et formularfelt - er det meningen at en ASP-fil åbnes. Siden skal starte udtrækket der, hvor postnummeret svarer til det indtastede.
Hvis postnummeret ikke eksisterer skal der lægges 100 til. \"her\" er et bookmark.
Avatar billede kasseper Nybegynder
28. november 2000 - 15:38 #1
En gang til for arveprins Knud,

den fik jeg ikke lige ?!!!!
Avatar billede marthin Nybegynder
28. november 2000 - 15:53 #2
Når man taster et postnummer i et søgefelt efterfulgt af \"enter\" - laves et udtræk fra en database.
Dette udtræk er imidlertid så stort at vi placerer en bookmark (ASP-genereret) så siden vises fra postnummer der matcher det indtastede.
Og det fungerer. I netscape. Ikke så godt i IE 5.0. Derfor indsætter vi +100 til postnummeret, når postnummeret ikke eksisterer.
Eksempel: Man taster 4000 i et formularfelt.
4000 eksisterer ikke. Så er det meningen at den skal finde det næste postnummer. Lad  os sige 4060. Det eksisterer. Så laves udtræk af alle postnumre og 4060 bliver det øverste nummer i en udskrift. Hele databásen er imidlertid tilgængelig vha scrolling.
Avatar billede kasseper Nybegynder
28. november 2000 - 16:02 #3
Hvad er det så lige præcis der ikke fungere, hvad kommer der af ffejl..?
Avatar billede marthin Nybegynder
28. november 2000 - 16:58 #4
Her er det gamle script vi brugte:
<%
set dbobj=server.createobject (\"adodb.connection\")
dbobj.open \"dsn=juice\"

set rs=dbobj.execute (\"select * FROM forhandlerfor\")

do while not rs.EOF
  if rs(\"postnr\") >= Cint(Request.querystring(\"postnr\")) then
    Response.Write(\"<a name=\"\"her\"\">\")
  end if
Response.Write \"<table BORDER=0 cellpadding=0 cellspacing=0><TR><TD width=100 height=10></td> <TD width=30 height=10><SPAN id=ole>\"
  Response.Write(rs(\"postnr\")&\"</span></TD><TD width=100 height=10><SPAN id=ole>\")
Response.Write(rs(\"sted\")&\"</span></TD>    <TD width=210 height=10><SPAN id=ole1>\")
Response.Write(rs(\"navn\")&\"</span></TD>    <TD width=100 height=10><SPAN id=ole>Telf.&nbsp;\")
Response.Write(rs(\"tlf\")&\"</span></TD></tr><tr><TD width=100 height=10>&nbsp;</TD><TD width=30 height=10>&nbsp;</TD><TD width=100>&nbsp;</TD><TD width=210><SPAN id=ole>    \")
Response.Write(rs(\"adresse\")&\"</span></TD> <TD width=100 height=10>&nbsp;</TD></tr><tr><td colspan=5 height=4>&nbsp;</TD></TR></table>    \")

  rs.MoveNext
loop

%>


Det fungerede fint i Netscape. Først indlæses hele filen i browseren - dernæst findes det indtastede postnummer - og eksempelvis står 4060 som postnummer øverst på listen. Vel at mærke i Netscape. I IE 5.0 ryger den et par felter forbi.
Hele filen består af ca 200 emner. Der er plads til at se 10 af gangen. Derfor scrolling.
Så spørgsmpålet går altså på, hvordan sikrer vi at det indtastede postnummer bliver det øverste emne på listen.
Avatar billede pokemaster Nybegynder
22. juni 2001 - 22:28 #5
Luk venligst dette spørgsmål ;o)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester