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 als hieronder 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 om alle data uit een tabel te laten zien e.d. maar niet specifiek voor een zoekopdracht in een form, gekoppeld aan een access 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
elke postcode komt slecht 1x voor.
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, de kilometers in de tabel afstand.
Indien er interesse is ben ik bereid om aan degene die me met deze klus kan helpen de database met de postcodes beschikbaar te stellen, dat is een hele klus, in totaal meer dan 4000 (4 cijferijge postcodes incl. afstanden en plaatsnamen tot Schiphol), het duurt wel nog effe voordat deze klus geklaard is.
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 als hieronder 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 om alle data uit een tabel te laten zien e.d. maar niet specifiek voor een zoekopdracht in een form, gekoppeld aan een access 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
elke postcode komt slecht 1x voor.
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, de kilometers in de tabel afstand.
Indien er interesse is ben ik bereid om aan degene die me met deze klus kan helpen de database met de postcodes beschikbaar te stellen, dat is een hele klus, in totaal meer dan 4000 (4 cijferijge postcodes incl. afstanden en plaatsnamen tot Schiphol), het duurt wel nog effe voordat deze klus geklaard is.
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
%>
