ASP database koppeling msc Access

[Goochem]

Hi all,
heb ff wat zitten kloten met scriptjes en de search van tweakers geraadpleegd, maar kom er niet uit..

ik wil een script maken waarin een formpje tevoorschijn komt wat vraagt om bijvoobeeld een ordernummer, als je deze invoert, toont het script de gehele 'string' (?) die bij dat ordernummer hoort, uit de database.

voorbeeld van wat ik tot nu toe heb:

http://www.jochemdavids.nl/dbtest/simpel-db.asp

je ziet dat hij de database als eerste al in zijn geheel toont, wat niet moet, maar ik weer echt totaal niet hoe ik dat in dit onderstaande script moet editten..

?that's all?

PRO'S GEVRAAGD!!

code:

<% @ LANGUAGE=VBScript ENABLESESSIONSTATE=False %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Eenvoudig Database voorbeeld</title>
<%
Record = Request.Form("recordnum")

'Test of invoer wel een getal is
On Error Resume Next
Record = CInt(Record)
If Err.Number <> 0 ThenRecord = ""

If Record <> "" Then
' als er een recordnummer is ingevuld
   set DataBaseCon = Server.Createobject("ADODB.Connection")

   ' Stel een DSN samen
   DataSource = "DRIVER={Microsoft Access Driver (*.mdb)}; "
   DataSource = DataSource & "DBQ=" & server.mappath("../../database/domains2.mdb")
   
   ' Open database
   DataBaseCon.Open DataSource

If Record = 0 then
' nummer nul dan alle records
' let op de "ORDER BY" hiermee kan
' gesorteerd worden op veld
' mogelijke velden in onze database zijn:
' Id, country, tld, whois en region
DataQuery = "SELECT * FROM registries ORDER BY region"
Else
' anders het opgegeven recordnummer
' de "ORDER BY" is hier eigenlijk overbodig
DataQuery = "SELECT * FROM registries WHERE Id = " & Record
DataQuery = DataQuery & " ORDER BY Id"
End If

' voer de SQL opdracht uit
Set RS = DataBaseCon.Execute(DataQuery)
If RS.Eof Then
Response.Write "<center><b>Helaas, dit record bestaat niet.</b><br><br>"
Response.Write "<a href=""simpel-db.asp"">Terug naar het formulier.</a></center>"
RS.close
set RS = nothing
DataBaseCon.close
set DataBaseCon = nothing
Response.End
End If
%>
<div align="center">
<center>
<table width="450" cellpadding="3">
<tr>
<!-- Plaats de veldnamen in de tabel -->
<td bgcolor="#000080"><b><font face="Arial" size="2" color="#FFFFFF"><%=RS("Id").name %></font></b></td>
<td bgcolor="#000080"><b><font color="#FFFFFF"><font face="Arial" size="2" color="#FFFFFF"><%=RS("country").name %></font></font></b></td>
<td bgcolor="#000080"><b><font color="#FFFFFF"><font face="Arial" size="2" color="#FFFFFF"><%=RS("tld").name %></font></font></b></td>
<td bgcolor="#000080"><b><font color="#FFFFFF"><font face="Arial" size="2" color="#FFFFFF"><%=RS("whois").name %></font></font></b></td>
<td bgcolor="#000080"><b><font color="#FFFFFF"><font face="Arial" size="2" color="#FFFFFF"><%=RS("region").name %></font></font></b></td>
</tr>
<%
' was er een recordnummer opgegeven?
' laat dan alleen dat record zien 
If Record > 0 Then %>
<tr>
<td valign=top bgcolor="#FFFFFF"><font face="Arial" size="2"><%=RS("Id")%></font></td>
<td valign=top bgcolor="#FFFFCC"><font face="Arial" size="2"><%=RS("country")%></font></td>
<td valign=top bgcolor="#FFFFFF"><font face="Arial" size="2"><%=RS("tld")%></font></td>
<td valign=top bgcolor="#FFFFCC"><font face="Arial" size="2"><%=RS("whois")%></font></td>
<td valign=top bgcolor="#FFFFFF"><font face="Arial" size="2"><%=RS("region")%></font></td>
</tr>
<% 
Else
' als recordnummer nul is laat dan
' alle records zien
Do While Not RS.Eof %>
<tr>
<td valign=top bgcolor="#FFFFFF"><font face="Arial" size="2"><%=RS("Id")%></font></td>
<td valign=top bgcolor="#FFFFCC"><font face="Arial" size="2"><%=RS("country")%></font></td>
<td valign=top bgcolor="#FFFFFF"><font face="Arial" size="2"><%=RS("tld")%></font></td>
<td valign=top bgcolor="#FFFFCC"><font face="Arial" size="2"><%=RS("whois")%></font></td>
<td valign=top bgcolor="#FFFFFF"><font face="Arial" size="2"><%=RS("region")%></font></td>
</tr>
<%
RS.MoveNext
Loop
End IF
%>
</table>
</center>
</div>
<%
RS.Close
Set RS = Nothing
DataBaseCon.Close
set DataBaseCon = Nothing

End If
%>

<br>
<form method="POST" action="simpel-db.asp">
  <div align="center">
    <center>
    <table border="0" cellpadding="3" cellspacing="0">
    <tr>
      <td valign="middle"><font face="Arial" size="2">Recordnummer:</font></td>
      <td valign="top"><input type="text" name="recordnum" size="6">
        </td>
    </tr>
    <tr>
      <td></td>
      <td><input type="submit" value="Submit" name="B1">
      <input type="reset" value="Reset" name="B2"></td>
    </tr>
    </table>
    </center>
  </div>
</form>
</html>

ALVAST BEDANKT

[Verwijderd]

Uhm ...
1) wat snap je er wel van?
2) wat is nou precies het probleem?

[.GoO]

Beetje onduidelijk wat je nu wilt, en heb ook niet echt het idee dat je zelf al veel geprobeerd hebt..

Zal het toch proberen:

ik wil een script maken waarin een formpje tevoorschijn komt wat vraagt om bijvoobeeld een ordernummer, als je deze invoert, toont het script de gehele 'string' (?) die bij dat ordernummer hoort, uit de database.

Nou je maakt een form met inputbox ordernummer en een submit knop. Method=post (of get wat jij wilt)

Dan op de volgende pagina maak je een DB connectie en open je de DB met: 'SELECT * FROM orders WHERE ordernr =' & ordernummer

en vervolgens druk je alle velden af dmv <%= rstOrder("Ordernr") %> <%= rstOrder("Ordernaam") %> etc..

Zoiets wil je?

[Verwijderd]

Je moet gewoon zorgen dat op het moment dat het recordnummer geen getal is dat je alles overslaat wat met het maken van de tabel te maken heeft.. Dus alle ASP code en de tabel.. Dit kan je zo met een if-lusje doen.. makkie dus

[whoami]

Op donderdag 04 juli 2002 11:13 schreef Hakkert het volgende:
Dit kan je zo met een if-lusje doen.. makkie dus

Een if is geen lus, dit even terzijde.

Topicstarter: Ik vind ook dat je een beetje onduidelijk bent, en ik vraag me trouwens sterk af of jij niet verwacht dat wij het gaan voorkauwen/voorbakken voor jou...

[.GoO]

Op donderdag 04 juli 2002 11:13 schreef Hakkert het volgende:
Je moet gewoon zorgen dat op het moment dat het recordnummer geen getal is dat je alles overslaat wat met het maken van de tabel te maken heeft.. Dus alle ASP code en de tabel.. Dit kan je zo met een if-lusje doen.. makkie dus

Invoercontrole lijkt me sowieso wel handig maar dat vroeg ie toch niet, of snap ik er nu helemaal niks meer van

[Janoz]

Nou... ga maar ff een boek kopen zou ik zo zeggen... Het is duidelijk te zien dat je gewoon een scriptje ergens vandaan gehaald hebt en het aan wilt passen maar geen ID hebt wat er allemaal gebeurt....

Begin gewoon met iets simpelers waarbij je tenminste voledig begrijpt wat er gebeurt. Bou dit langzaam uit en na een tijdje kun je ook dit soort dingen wel voor elkaar krijgen....