hente i database

nej det kan du ikke...

query = \"SELECT * FROM Master WHERE ID = 100 AND NAVN = \'\" & navn & \"\'\"
Set Band = Connect.Execute(query)

If NOT Band.EOF Then
response.write Band(\"navn\") & \"<br>\"
response.write Band(\"ID\") & \"<br>\"
response.write Band(\"osvosv.\") & \"<br>\"

End if

Du kan så sætte ID til hvad du vil...
eller have den i en variabel så skal query se sådan her ud :


\"SELECT * FROM Master WHERE ID = \" & MyID & \" AND NAVN = \'\" & navn & \"\'\"

Jeg er kommet dertil at min kode nu ser sådan her ud. Men der er problem med et \'Object required\' i
Set Band = Connect.Execute(Query) linien.
Kan man lave den If...Then sætning, så den ikke begynder at søge hvis der ikke er noget i dette ID felt.

<%
dim conn, Query
set conn = server.createobject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"data1.mdb\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

\'<%if ID\"1\" = false Then
\'response.write(\"\")
\'elseif ID\"1\" = true Then

Query =\"SELECT Bandnavn, Id FROM Master WHERE ID = 1 ORDER BY bandnavn\"
dim Band
Set Band = Connect.Execute(Query)

If NOT Band.EOF Then
response.write Band(\"Bandnavn\") & \"<br>\"
\'response.write Band(\"ID\") & \"<br>\"
\'response.write Band(\"osvosv.\") & \"<br>\"

End if %>
\'End if

Det jeg vil er at skrive et navn ud fra en database og have det til at stå i en bestemt table på siden og hvis der ikke står noget i feltet skal den selvfølgelig ikke skrive noget ud.

punkt 1. hvorfor vil du have ORDER BY med i din Query......Du henter jo kun et ID ud .

OK her kommer der et eksempel :

<html>
<head>
<title>Jeg udskriver nu band navnet med ID 1, i min tabel hvis det står der !!!!!</title>
</head>
<body>
<%
set conn = server.createobject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"data1.mdb\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Query =\"SELECT Bandnavn FROM Master WHERE ID = 1\"

Set Band = Connect.Execute(Query)

dim Mybandname

If NOT Band.EOF Then
Mybandname = Band(\"Bandnavn\")
else
Mybandname = \"\"
End if %>

<table>
<tr>
<td>

Shit stop en halv jeg er ikke færdig :

Sådan her skal den se ud :
---------------------------------------------------------------


<html>
<head>
<title>Jeg udskriver nu band navnet med ID 1, i min tabel hvis det står der !!!!!</title>
</head>
<body>
<%
set conn = server.createobject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"data1.mdb\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Query =\"SELECT Bandnavn FROM Master WHERE ID = 1\"

Set Band = Connect.Execute(Query)

dim Mybandname

If NOT Band.EOF Then
Mybandname = Band(\"Bandnavn\")
else
Mybandname = \"\"
End if %>

<table>
  <tr>
    <td>Her er navnet på bandet med id nummer 1: (hvis det altså findes)</td>
    <td><%= Mybandname %></td>
  </tr>
</table>

</body>
</html>



-----------------------------------------------

Som en sidste ting skal jeg lige indskyde at kramer er den
ultimativt sejeste personage.

Den skriver stadig at

Object required: \'\' 

ved denne linie

Set Band = Connect.Execute(Query)

AAAARRRGGGHHHH damn it, jeg skal have nogle tykkere briller, der skal stå

Set Band = conn.execute(Query)

Sådan

jeg havde jo oprettet conn som forbindelse og ikke Connect, dumme fejl

Hvad betyder denne sætning:

If NOT Band.EOF Then

Jeg kan se at det skulle virke nu. Men at en eller anden grund arbejder den som om der ikke er noget i min db. Kan der være noget i koden der gør at den hopper over.

ok, for det første betyder
If Not Band.EOF Then
at der er noget i recordsettet Band.

for det andet skal du nok lige sætte disse linier ind i før </body>


<%
Band.close
Set Band = Nothing
conn.close
Set conn = Nothing
%>

Så for du ryddet lidt op....

Kasseper