På
www.trundholm.dk / Teknik, Miljø & Ejendom / Affald / Storskrald_søg er
der en formular hvor man kan indtaste et vejnavn, f.eks. Oddenvej eller
Lyngvej etc. og få svar på hvilke datoer der hentes Storskrald i kommunen.
Formularen sender en request der hedder "vej" som skal matche databasens
"adresse".
Bag formularen ligger en storskrald.asp som henter de records der matcher i
en Access database. Data kommer fra en forespørgsel der hedder
qrystorskrald.
Databasen er OK
Connection er OK, men hvis der er flere records med samme vejnavn var det
meningen at de skulle loope indtil alle var listet under hinanden. Det er
kun den sidste record der bliver listet.
Navne der burde returnere flere linier er f.eks.
Oddenvej
Lyngvej
Ellingevej
Egebjergvej
Hvorfor looper den ikke? Hvad kan fejlen være?
Her er hele asp-filen:
--------------------------------------------
<%@ Language=JScript %>
<!--#INCLUDE VIRTUAL="nethotel-include/webOffice/stdsrc/wop/stdIni.asp" -->
<!--#INCLUDE FILE="kundeIni.asp" -->
<HTML>
<HEAD>
<TITLE> Storskrald </TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 4.0">
<META NAME="Author" CONTENT="Trine Pedersen">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%=infoTopHtmlTekst%>
<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
Const adLockPessimistic = 2
Const adOpenStatic = 3
Const adCmdTable = &H0002
Dim objConn
Dim objRec
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=www_odsherredportal_dk"
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open "qrystorskrald", objConn, adOpenStatic, adLockPessimistic,
adCmdTable
objRec.Find "adresse='" & request("vej") & "'"
If objRec.EOF Then
Response.write "<br>Vejen blev ikke fundet, kontroller at du har stavet
navnet præcist..."
Else
Response.Write "<br>Der bliver hentet storskrald på " & objRec("adresse") &
" " & objRec("husnummer")
Response.Write "<br> den: " & objRec("dato1") & ", " & objRec("dato2") & "
og den: " & objRec("dato3") & " - 2004."
objRec.MoveNext
strAdresse1 = LCase (objRec("adresse"))
strAdresse2 = LCase (request("vej"))
Do While strAdresse1=strAdresse2
Response.Write "<br>test" & objRec("adresse") & " " &
objRec("husnummer")
Response.Write "<br> den: " & objRec("dato1") & ", " & objRec("dato2") & "
og den: " & objRec("dato3") & " - 2004."
objRec.MoveNext
strAdresse1 = LCase (objRec("adresse"))
strAdresse2 = LCase (request("vej"))
Loop
End If
objRec.Close
objConn.Close
Set objRec = Nothing
Set objConn = Nothing
</SCRIPT>
<br><br>
<button OnClick="javascript:history.go(-1)">Tilbage</button>
</BODY>
</HTML>
----------------------------------------------------------------------------
---------------
Hilsen fra
Tim