Nu er jeg langt ude

<%

if ObjRS("best") <> "" then
  Response.Write(ObjRS("id"))
end if

Response.Write("<tr><td>" & objRS("id") &"</td>")

%>

tro lige jeg læse hvad du skrev eeen gang til ;-)

hvis id'et kun skal udskrives skal du bare bruge de 3 første linier jeg skrev

if [bestilling sendt] then
  conn.Execute("Update from [tabel] (best) values ('') where id = " & ObjRS("id"))
end if

Måske skulle jeg lære at udtrykke mig lidt tydeligere 8o(
Jeg ville gerne udskrive id OG best hvis der er udfyldt noget i best! Undskyld forvirringen

hvis jeg forstår dig ret skal objRS("best") altid udskrives, men objRS("id") også skal udskrives hvis der er en værdi i objRS("best")

<%

if ObjRS("best") <> "" then
  Response.Write(ObjRS("id"))
end if

Response.Write("<tr><td>" & objRS("best") &"</td>")

%>

Man skal tjekke på om felter er Null, hvis det er tomt i databasen får man Null og ikke "" tilabge i recordsetet.

Så prøv:

if isNull(ObjRS("best")) = false then

  Response.Write objRS("id") & "<br>" & ObjRS("best")

end if

I ingen af eksemplerne får jeg mit "id" med. Skal i bruge noget mere kode ? I så fald hvilken

Ok den skriver også kun ID ud hvis der er noget i "best". Hvis den altid skal skrive "id" ud så prøv.:


<% if isNull(ObjRS("best")) = false then %>
  <%= ObjRS ("best")%>
<% end if %>
<%Response.Write"<tr><td>" & objRS("id") &"</td>"
%>

Jeg får nu et : Microsoft VBScript compilation error '800a0400'

Expected statement

/shoppingbasket.asp, line 38

<% if isNull(ObjRS("best")) = false then
^

Her er hele smøren så i kan se hvad jeg laver. Det var ellers rigtigt nok at jeg kun ville have "id" ud hvis der er noget i "best". Som det måske vil fremgå er det til en 'indkøbskurv'


<%
Dim objConndrejebase
Set objConndrejebase = Server.CreateObject ("ADODB.Connection")
objConndrejebase.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\manniken.dk\www\config\datasources\drejebase.mdb"
objConndrejebase.Open () 

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT id, d_min,l,e, insert,price,drawing,image, best FROM dreje_indv",objConndrejebase
%>

<%   

strSQL = "Insert into dreje_indv (best) values('" & Request.Form("order") & " ' )"
objConndrejebase.Execute(strSQL)
%><%
Set objRS=objConndrejebase.Execute("SELECT id, d_min, l, e, insert, price, drawing, image, best FROM dreje_indv")
Do while Not objRS.EOF
%>
        <table width="122" border="1" cellspacing="2" cellpadding="0">
            <tr>
                <td>
                <%

<% if isNull(ObjRS("best")) = false then %>
  <%= ObjRS ("best")%>
<% end if %>
<%Response.Write"<tr><td>" & objRS("id") &"</td>"
%>
            </tr>
        </table>
       
        <p>
<%

objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing

objConndrejebase.Close
Set objConndrejebase = Nothing
%></p></p>
    </body>

</html>

Prøv at fjerne <% foran selv if sætningen der er to af dem efter hinadnen. Så det bliver:

if isNull(ObjRS("best")) = false then %>

Tak for din tålmodighed , prøv evt at se her ; http://www.manniken.dk/dreje.asp prøv venligst at "bestille" noget og så se hav den laver .

På forhånd tak

Det er fordi det felt man skriver har samme navn for alle vare, order:

<input type="text" name="order" size="5">

Så når man tyrkker bestil kommer de alle sammen med me de er tomme "" men da de har samme navn bliver alle felterne adskildt af ,

Ok, hvordan burde jeg da have lavet det ? Som det ses er ASP nyt for mig! Det jeg drømmer om at lave er en bestillingsside(uden betalingsdel) hvor det man bestiller, og kun det, bliver skrevet ud på siden evt med antal i et tekstfelt så man kan rette i det .

Det kommer lidt an på hvad man ønsker.
Hvis du vil havde en lang streng med , i mellem så kan man netop udnyttet dog skal , , , så fjernes hvis der ikke er tal imellem.

Hvis man vil havde hver vare for sig selv kan man ligge ID på varen ind i et heidden felt og så giver ændre navet på order inputet til også at bestå af ID for varen. <input type="text" name="order<%=rs("id")%>" size="5">
Så skal den som hndter loope gennem alle de ID som er og tjekke på om der er indtastet noget i et felt.

Tak for svaret, pointene må være dine. Men før jeg lukker ville jeg lige spørge; Har jeg forstået det rigtigt at jeg kan lave det sådan:
<input type="text" name=order<%=objRS("id")%>" size="5">
<input type="hidden" name="id">

Og så bruge dit If isNull...........

Jeg prøver naturligvis men jeg vile meget gerne høre din kommentar , tak

Ja det er sådan jeg mener dog skal du også lige hvade selv IDet ind i values på det hiddenfelt, sådan her:

<input type="hidden" name="id" value="<%=objRS("id")%>">



På den side som tjekker om varen er krydset af lavet du det sådan her:

IDList = Request.Form("id")    'Det giver nemlig en liste med alle vare
idArr = split(IDList,",")      'Laver et array med alle ID

'Tjek om order<%=id%> er udfyldt

for i = lbound(idArr) to ubound(idArr)
  antal = Request.Form("order" & Trim(idArr(i)))
  if antal <> "" then
    'Der er angivet et antal af denne vare
    vareID = idArr(i)
   
  'Så har du vareID og antal du kan gemme i DBen elle

  Response.write "Der er bestil varen : " & vareID & " og antalet er " & antal & "<br>"
  end if
next

Det bliver bedre og bedre! Den skriver dog intet ud lige nu men det løser sig måske ?

Jeg har følgende lige nu:

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT id, d_min,l,e, insert,price,drawing,image, best FROM dreje_indv",objConndrejebase
%>

<%   

strSQL = "Insert into dreje_indv (best) values('" & Request.Form("order") & " ' )"
objConndrejebase.Execute(strSQL)
%><%
Set objRS=objConndrejebase.Execute("SELECT id, d_min, l, e, insert, price, drawing, image, best FROM dreje_indv")
Do while Not objRS.EOF
%>
    <%   
            IDList = Request.Form("id")    'Det giver nemlig en liste med alle vare
idArr = split(IDList,",")      'Laver et array med alle ID

for i = lbound(idArr) to ubound(idArr)
  antal = Request.Form("order" & Trim(idArr(i)))
  if antal <> "" then
    'Der er angivet et antal af denne vare
    vareID = idArr(i)
'Så har du vareID og antal du kan gemme i DBen elle

  Response.write "Der er bestil varen : " & vareID & " og antalet er " & antal & "<br>"
  end if
next
%>
       
       
<%

objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing

objConndrejebase.Close
Set objConndrejebase = Nothing
%>
    </body>

</html>

Jeg glemte :

Hvilken funktion har 'next' efter end if ? Jeg har er par relaterede spørgsmål, kan jeg fyre dem af her med ekstra point eller er det bedre at starte et nyt spørgsmål ?

Den skriver det nu godt nok, før jeg slutter, kan jeg stille de yderligere spørgsmål her eller skal jeg starte et nyt ?

Jeg må hellere give dig points mens jeg husker det. Det eneste pro
blem jeg har lige nu er at den skriver ligeså mange linier som der er felter i databasen