Hoi,
ik ben al een week aan het zoeken om het voor mekaar te krijgen dat een ingevuld tekstfield van een formulier de bijbehorende kilometers laat zien uit een access database.
in het tekstfield moet de 4 cijferige postcode ingevuld worden waarna dmv submit de daarbij behorende afstand tot een vast punt: Schiphol getoond wordt, resultaat.asp
Ik heb al overal gegoogled en gezocht, heb de code tot zover af gekregen, maar nergens wordt er duidelijk omschreven wat te doen als er een tekstveld ingevuld moet worden, om daarna de bijbehorende gegevens (record) uit een database te laten zien.
Er worden wel genoeg voorbeelden gegeven van dropboxen of alle data uit een tabel te laten zien e.d. maar niet specifiek voor een zoekopdracht in een form, gekoppels aan een datase, vraag ik nu iets dat zo simpel is dat iedereen het weet of is het niet mogelijk zoals ik dat wil ??
De database is een access database met de tabel: afstand
en omvat de volgende kolommen:
postcode | kilometers | land | provincie | locatie
(ps. locatie= plaats of gemeente)
er is geen kolom id omdat de 4 cijferige postcode al een id vormt voor de record
de database wordt op dit moment gevuld met de postcodes / kilometerafstanden tot een vast punt: Schiphol.
er komt dus een formulier waarin je de postcode invult button submit en daarna krijgt men de afstand te zien van de betreffende postcode (4cijferig) tot Schiphol.
Indien me iemand kan helpen ben ik bereid dat wanneer de databse gevuld is met de
postcodes e.d. deze te delen, indien er interesse hiervoor bestaat natuurlijk,
dat is een hele klus, in totaal meer dan 4000 (4 cijferijge postcodes incl. afstanden en plaatsnamen tot Schiphol).
dit heb ik :
pagina:
zoek.asp
<form action=resultaat.asp method=get>
postcode <input type=text name=zoekterm><br>
<input type=submit value=search></form>
pagina resultaat.asp
include files:
db.inc
dbclose.inc
ik ben al een week aan het zoeken om het voor mekaar te krijgen dat een ingevuld tekstfield van een formulier de bijbehorende kilometers laat zien uit een access database.
in het tekstfield moet de 4 cijferige postcode ingevuld worden waarna dmv submit de daarbij behorende afstand tot een vast punt: Schiphol getoond wordt, resultaat.asp
Ik heb al overal gegoogled en gezocht, heb de code tot zover af gekregen, maar nergens wordt er duidelijk omschreven wat te doen als er een tekstveld ingevuld moet worden, om daarna de bijbehorende gegevens (record) uit een database te laten zien.
Er worden wel genoeg voorbeelden gegeven van dropboxen of alle data uit een tabel te laten zien e.d. maar niet specifiek voor een zoekopdracht in een form, gekoppels aan een datase, vraag ik nu iets dat zo simpel is dat iedereen het weet of is het niet mogelijk zoals ik dat wil ??
De database is een access database met de tabel: afstand
en omvat de volgende kolommen:
postcode | kilometers | land | provincie | locatie
(ps. locatie= plaats of gemeente)
er is geen kolom id omdat de 4 cijferige postcode al een id vormt voor de record
de database wordt op dit moment gevuld met de postcodes / kilometerafstanden tot een vast punt: Schiphol.
er komt dus een formulier waarin je de postcode invult button submit en daarna krijgt men de afstand te zien van de betreffende postcode (4cijferig) tot Schiphol.
Indien me iemand kan helpen ben ik bereid dat wanneer de databse gevuld is met de
postcodes e.d. deze te delen, indien er interesse hiervoor bestaat natuurlijk,
dat is een hele klus, in totaal meer dan 4000 (4 cijferijge postcodes incl. afstanden en plaatsnamen tot Schiphol).
dit heb ik :
pagina:
zoek.asp
<form action=resultaat.asp method=get>
postcode <input type=text name=zoekterm><br>
<input type=submit value=search></form>
pagina resultaat.asp
Code:
<% @LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--#INCLUDE VIRTUAL="/include/db.inc"-->
<%
Dim zoekterm, kilometers, land, provincie, locatie, postcode
%>
<html>
<head>
<title>Zoek resultaten</title>
</head>
<body>
<table width="90%" cellpadding="0" cellspacing="0" border="0" align="center" class="Normal">
<tr>
<td>
<table width="550" cellpadding="0" cellspacing="0" border="0" align="center" class="Normal">
<%
cmdTemp.CommandText = "Select kilometers, land, provincie, locatie FROM afstand Where postcode='"&zoekterm&"'"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DB
RS.Open cmdTemp, , 0, 1
If Not (RS.EOF or RS.BOF) Then
zoekterm = RTrim(RS("postcode"))
kilometers = RTrim(RS("kilometers"))
land = RTrim(RS("land"))
provincie = RTrim(RS("provincie"))
locatie = RTrim(RS("locatie"))
End If
RS.Close
%>
<tr><td>
kilometers:<%=kilometers%><br>
postcode:<%=postcode%><br>
land:<%=land%><br>
provincie:<%=provincie%><br>
plaats:<%=locatie%><br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<!--#INCLUDE VIRTUAL="/include/dbclose.inc"-->include files:
db.inc
Code:
<%
Dim DB, RS, RS2, RS3, cmdTemp, strDatabaseDateFunction
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "DBQ=d:\www\.......nl\database\database.mdb;DRIVER={Microsoft Access Driver (*.mdb)}", "", ""
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS2 = Server.CreateObject("ADODB.Recordset")
Set RS3 = Server.CreateObject("ADODB.Recordset")
Dim vMode
vMode = Request("mode")
Dim vFS, vDir, vFiles, vFile
Set vFS = Server.CreateObject("Scripting.FileSystemObject")
%>dbclose.inc
Code:
<%
Set RS = Nothing
Set RS2 = Nothing
Set RS3 = Nothing
Set DB = Nothing
%>
