lave forms ud fra database og sende det i mail

sendes der en mail for hver enkelt bestilling eller hva ????

og hvilke form for mailkomponent ligger der på dit webhotel ??

du behøver ikke tænke på at lave mail delen til mig det kan jeg godt selv om.. og ja der sendes for hver enkelt kategori... med mindre det er meget let at lave det så man kan bestille fra flere forskelige?

er det sådan du mener ??

<%
if request("bestil") <> "" then
totalsum = request("antal") * request("price")
varetekst = request("varetekst")
farve_type = request("farve_type")
str = request("str")
' og så smider du dette i en mail streng og sender

else
%>
<%
'her henter du fra din tabel i et loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form" method="post" action="bestilling.asp"> <tr>
    <td>
    Angiv antal:    <input name="antal" type="text" size="5">
&nbsp; <select name="farve_type">
          <option value="farve">farve</option>
          <option value="sort hvid">sort hvid</option>
        </select>
        &nbsp; pris pr. stk.  <input type="hidden" name="price" value="<%=price%>">
<input type="hidden" name="str" value="<%=str%>">
<input type="hidden" name="varetekst" value="<%=varetekst%>"></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
      <td></td>
    <td>
        <input type="submit" name="Submit" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
%>

såvidt jeg kan se gør det ik helt det jeg vil.. starter lige forfra...

1: har en tabel der indeholder størelser og priser så man let kan tilføje nye eller rette.. den ser således ud

size-price

under hver billede i kataloget skal der så komme

size-price
20x40 - 20kr [antal felt]
40x50 - 40kr [antal felt]

lige så mange som der er records i den tabel..

når det er gjort skal jeg ha lavet så i bunden af hver katalog kan man trykke bestil hvor den så tager alle de steder man har f.eks skrevet 1 el 3 eller sådan og sender:

hvad billede, hvad størelse hvor mange samt viser total pris i mail og total pris på siden. giver det mere mening nu?

så tager du også alle bestillinger på en gang

prøv dette -

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for b = 1 to antal_poster
if request("antal_"& i) <> "" then
total_vare = request("antal_"& i) * request("price_"& i)
total_sum = int(total_sum) + int(total_vare)
varetekst = request("varetekst_"& i)
farve_type = request("farve_type_"& i)
str = request("str_"& i)
response.write "bestilling nr. " & b & " - " & request("antal_"& i) & " a kr. " & request("price_"& i) & " ialt kr. " & total_vare & "<br>"

end if
' og så smider du dette i en mail streng og sender

else
%>
<%
'her henter du fra din tabel i et loop
'du sætter en tæller på
    <%
strSQL = "Select * from "din tabel""
set rs = conn.execute(strSQL)
if not rs.eof then
do
i = i + 1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form" method="post" action="bestilling.asp"> <tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">
&nbsp; <select name="farve_type_<%i%>">
          <option value="farve">farve</option>
          <option value="sort hvid">sort hvid</option>
        </select>
        &nbsp; pris pr. stk.  <input type="hidden" name="price_<%i%>" value="<%=price%>">
<input type="hidden" name="str_<%i%>" value="<%=str%>">
<input type="hidden" name="varetekst_<%i%>" value="<%=varetekst%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
%>

'husk at erstatte pris med beløb fra db

så misforstod jeg dig..

Hmmmm nu kan det godt være det er mig der er noob men hvor henter du priserne fra dbén henne? eneste sted jeg kan se den henter noget fra en db er strSQL = "Select * from "din tabel"" og der skal jeg vel hente billederne? den kode jeg har nu ser således ud:

<% if mode = "show" then %>



<%
SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)%>
<%
Do Until rs.EOF
%>

Tumb: <%=rs("tumb")%><br>
Pic: <%=rs("pic")%><br>
ID: <%=rs("id")%><br>
own_id: <%=rs("own_id")%><br>
comment: <%=rs("comment")%><br><br><br>

<%
rs.MoveNext
Loop
Conn.close
end if
%>

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for b = 1 to antal_poster
if request("antal_"& i) <> "" then
total_vare = request("antal_"& i) * request("price_"& i)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& i)
farve_type = request("farve_type_"& i)
own_id = request("own_id_"& i)
response.write "bestilling nr. " & b & " - " & request("antal_"& i) & " a kr. " & request("price_"& i) & " ialt kr. " & total_vare & "<br>"

end if
' og så smider du dette i en mail streng og sender

else
%>
<%
'her henter du fra din tabel i et loop
'du sætter en tæller på
if mode = "show" then

SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
do
i = i + 1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form" method="post" action="bestilling.asp"> <tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">
&nbsp; <select name="farve_type_<%i%>">
          <option value="farve">farve</option>
          <option value="sort hvid">sort hvid</option>
        </select>
        &nbsp; pris pr. stk.  <input type="hidden" name="price_<%i%>" value="<%=rs("price")%>">
<input type="hidden" name="own_id_<%i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if
%>


' du må jo have en pris fra db så du kan lave din beregning har rettet lidt til her

prøver lige igen - der var noget galt med form start

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for b = 1 to antal_poster
if request("antal_"& i) <> "" then
total_vare = request("antal_"& i) * request("price_"& i)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& i)
farve_type = request("farve_type_"& i)
own_id = request("own_id_"& i)
response.write "bestilling nr. " & b & " - " & request("antal_"& i) & " a kr. " & request("price_"& i) & " ialt kr. " & total_vare & "<br>"

end if
' og så smider du dette i en mail streng og sender

else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
'her henter du fra din tabel i et loop
'du sætter en tæller på
if mode = "show" then

SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
%>
<form name="form" method="post" action="bestilling.asp">
<%
do
i = i + 1
%>
<tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">
&nbsp; <select name="farve_type_<%i%>">
          <option value="farve">farve</option>
          <option value="sort hvid">sort hvid</option>
        </select>
        &nbsp; pris pr. stk.  <input type="hidden" name="price_<%i%>" value="<%=rs("price")%>">
<input type="hidden" name="own_id_<%i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if
%>

du henter da stadig ikke priserne fra databasen?

1:
Jeg har en tabel der ser således ud:
navn: price
felter: id, size, price
eksempel på data: id=1, size=10x20, price=20

du skriv at du henter price fra kolonnen price -

hvis du mener at den ikke skriver det så sætter du den da bare til det....

<input type="hidden" name="price_<%i%>" value="<%=rs("price")%>"> kr. <%=rs("price")%>

http://tmp.blacknet.dk/photodb.jpg

der kan du se min db og hvordan den er opbygget.. er måske mig der ik har forklaret det ordenligt....

Kategori lister de kategorier der er.
billede har own_id som indeholder det id de høre til i kategori

prices er en selvstændig tabel, som indeholder en række størelser og priser i formatet:
Size - price
20x40 - 20
40x50 - 40

osv

under hver billede skal der være en række pricer og et felt hvor man kan udfylde hvor mange af hver man vil ha.. det skal altså hentes fra tabelén prices....

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for b = 1 to antal_poster
if request("antal_"& i) <> "" then
total_vare = request("antal_"& i) * request("price_"& i)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& i)
farve_type = request("farve_type_"& i)
own_id = request("own_id_"& i)
response.write "bestilling nr. " & b & " - " & request("antal_"& i) & " a kr. " & request("price_"& i) & " ialt kr. " & total_vare & "<br>"

end if
' og så smider du dette i en mail streng og sender

else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From price order"
set rs = Conn.execute(SQL)
if not rs.eof then
do
str = rs("size")
prize = rs("prize")
str_1 = str & "," & str_1
prize_1 = prize & "," & prize_1
rs.movenext
loop while not rs.eof
end if
prize_1 = trim(prize_1)
str_1 = trim(str_1)

If Right(prize_1, 1) = "," Then
prize_1 = Left(prize_1, len(prize_1)-1)
End If
If Right(str_1, 1) = "," Then
str_1 = Left(str_1, len(str_1)-1)
End If
Array_str_1 = Split(str_1,",")
Array_prize_1 = Split(prize_1,",")
'her henter du priser og størrelser


if mode = "show" then

SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
%>
<form name="form" method="post" action="bestilling.asp">
<%
do
i = i + 1
%>
<tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">        &nbsp;

<%
  for b = lBound(Array_str_1) to uBound(Array_str_1)
%>
<input type="radio" name="str_<%=i%>" value="<%=Array_str_1(b)%>">
<%
next 
%>
<%
  for b = lBound(Array_prize_1) to uBound(Array_prize_1)
%>
<input type="hidden" name="price_<%i%>" value="<%=Array_prize_1(b)%>">
<%
next 
%>  &nbsp; pris pr. stk. <%=Array_prize_1(b)%>
       
<input type="hidden" name="own_id_<%i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if
%>
' du kan selv sætte det op i tabellen

mange tak,, der er dog et problem...

jeg får:

Error Type:
Sun ONE ASP VBScript compilation (0x800A03FC)
Syntax error, unexpected "Else ", expecting "Next"
/photo/katalog.asp, line 41, column 1

linien 41 er:

' og så smider du dette i en mail streng og sender

fra

end if
' og så smider du dette i en mail streng og sender

else

ups det må du undskylde
erstat disse linier

end if
' og så smider du dette i en mail streng og sender

else

med disse

end if
next

else

det hjalp men nu er der:

Error Type:
Sun ONE ASP VBScript runtime (0x800A01F4)
'i' is undefined
/photo/katalog.asp, line 58

http://www.peterholmfoto.dk/photo/katalog.asp?mode=show&view_id=1

linie 58 er:

do

fra:

<%
do
i = i + 1
%>

ret denne linie til
if mode = "show" then
i = 0

Hmm giver stadig samme fejl:

# Error Type:
Sun ONE ASP VBScript runtime (0x800A01F4)
'i' is undefined
/photo/katalog.asp, line 62

linie 62 er:
i = i + 1

' jeg havde lavet en fejl i toppen der er her rettet - prøv det - hvis ikke må du lige smide hele sidens kode her

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for c = 1 to antal_poster
if request("antal_"& c) <> "" then
total_vare = request("antal_"& c) * request("price_"& c)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& c)
farve_type = request("farve_type_"& c)
own_id = request("own_id_"& c)
response.write "bestilling nr. " & c & " - " & request("antal_"& c) & " a kr. " & request("price_"& c) & " ialt kr. " & total_vare & "<br>"
' og så smider du dette i en mail streng og sender

end if
next

else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From price order"
set rs = Conn.execute(SQL)
if not rs.eof then
do
str = rs("size")
prize = rs("prize")
str_1 = str & "," & str_1
prize_1 = prize & "," & prize_1
rs.movenext
loop while not rs.eof
end if
prize_1 = trim(prize_1)
str_1 = trim(str_1)

If Right(prize_1, 1) = "," Then
prize_1 = Left(prize_1, len(prize_1)-1)
End If
If Right(str_1, 1) = "," Then
str_1 = Left(str_1, len(str_1)-1)
End If
Array_str_1 = Split(str_1,",")
Array_prize_1 = Split(prize_1,",")
'her henter du priser og størrelser
if mode = "show" then
SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
%>
<form name="form" method="post" action="bestilling.asp">
<%
do
i = i + 1
%>
<tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">        &nbsp;
<%
  for b = lBound(Array_str_1) to uBound(Array_str_1)
%>
<input type="radio" name="str_<%=i%>" value="<%=Array_str_1(b)%>">
<%
next 
%>
<%
  for b = lBound(Array_prize_1) to uBound(Array_prize_1)
%>
<input type="hidden" name="price_<%i%>" value="<%=Array_prize_1(b)%>">
<%
next 
%>  &nbsp; pris pr. stk. <%=Array_prize_1(b)%>
       
<input type="hidden" name="own_id_<%i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if
%>

Får stadig denne fejl:

Error Type:
Sun ONE ASP VBScript runtime (0x800A01F4)
'i' is undefined
/photo/katalog.asp, line 81

ved

<%
do
i = i + 1
%>

hele min kode ser således ud


<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<%
StartTime = Timer()
%>
<!--#include file="conn-inc.asp"-->
<% Response.Buffer = True %>

<% mode = request("mode") %><% if mode = "" then %>

<%
SQL = "SELECT * FROM kategori"
set rs = Conn.execute(SQL)

  while NOT rs.EOF%>
<div><b>Galleri Navn: </b><br>
<a href="?mode=show&view_id=<%=rs("id")%>"><%=rs("navn")%></a><br>
<b>Galleri Beskrivelse: </b><br>
<%=rs("desc")%><br>
</div> <%
  rs.MoveNext
Wend

Conn.close%>

<% end if %>

<% if mode = "show" then
i = 0 %>

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for c = 1 to antal_poster
if request("antal_"& c) <> "" then
total_vare = request("antal_"& c) * request("price_"& c)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& c)
farve_type = request("farve_type_"& c)
own_id = request("own_id_"& c)
response.write "bestilling nr. " & c & " - " & request("antal_"& c) & " a kr. " & request("price_"& c) & " ialt kr. " & total_vare & "<br>"
' og så smider du dette i en mail streng og sender

end if
next

else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From prices"
set rs = Conn.execute(SQL)
if not rs.eof then
do
str = rs("size")
prize = rs("price")
str_1 = str & "," & str_1
prize_1 = prize & "," & prize_1
rs.movenext
loop while not rs.eof
end if
prize_1 = trim(prize_1)
str_1 = trim(str_1)

If Right(prize_1, 1) = "," Then
prize_1 = Left(prize_1, len(prize_1)-1)
End If
If Right(str_1, 1) = "," Then
str_1 = Left(str_1, len(str_1)-1)
End If
Array_str_1 = Split(str_1,",")
Array_prize_1 = Split(prize_1,",")
'her henter du priser og størrelser
if mode = "show" then
SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
%>
<form name="form" method="post" action="bestilling.asp">
<%
do
i = i + 1
%>
<tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">        &nbsp;
<%
  for b = lBound(Array_str_1) to uBound(Array_str_1)
%>
<input type="radio" name="str_<%=i%>" value="<%=Array_str_1(b)%>">
<%
next
%>
<%
  for b = lBound(Array_prize_1) to uBound(Array_prize_1)
%>
<input type="hidden" name="price_<%i%>" value="<%=Array_prize_1(b)%>">
<%
next
%>  &nbsp; pris pr. stk. <%=Array_prize_1(b)%>
     
<input type="hidden" name="own_id_<%i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if

end if
%>
<br><br><i>
<%
EndTime = Timer()
TotalTime = EndTime - StartTime
Response.write "Page was generated in: " & TotalTime & " sek." 
%></i>

jeg har ændret dette i din kode:

SQL = "Select * From price order"

til

SQL = "Select * From price" ved ik hvorfor du har sat order bagefter?

hvad ligger der i din <!--#include file="conn-inc.asp"-->
'prøv evt at dim

<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<%
StartTime = Timer()
%>
<!--#include file="conn-inc.asp"-->
<% Response.Buffer = True %>

<% mode = request("mode") %><% if mode = "" then %>

<%
SQL = "SELECT * FROM kategori"
set rs = Conn.execute(SQL)

  while NOT rs.EOF%>
<div><b>Galleri Navn: </b><br>
<a href="?mode=show&view_id=<%=rs("id")%>"><%=rs("navn")%></a><br>
<b>Galleri Beskrivelse: </b><br>
<%=rs("desc")%><br>
</div> <%
  rs.MoveNext
Wend

Conn.close%>

<% end if %>
'
<%
dim i,b
if mode = "show" then
i = 0 %>

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for c = 1 to antal_poster
if request("antal_"& c) <> "" then
total_vare = request("antal_"& c) * request("price_"& c)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& c)
farve_type = request("farve_type_"& c)
own_id = request("own_id_"& c)
response.write "bestilling nr. " & c & " - " & request("antal_"& c) & " a kr. " & request("price_"& c) & " ialt kr. " & total_vare & "<br>"
' og så smider du dette i en mail streng og sender

end if
next

else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From prices"
set rs = Conn.execute(SQL)
if not rs.eof then
do
str = rs("size")
prize = rs("price")
str_1 = str & "," & str_1
prize_1 = prize & "," & prize_1
rs.movenext
loop while not rs.eof
end if
prize_1 = trim(prize_1)
str_1 = trim(str_1)

If Right(prize_1, 1) = "," Then
prize_1 = Left(prize_1, len(prize_1)-1)
End If
If Right(str_1, 1) = "," Then
str_1 = Left(str_1, len(str_1)-1)
End If
Array_str_1 = Split(str_1,",")
Array_prize_1 = Split(prize_1,",")
'her henter du priser og størrelser
if mode = "show" then
SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
%>
<form name="form" method="post" action="bestilling.asp">
<%
do
i = i + 1
%>
<tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">        &nbsp;
<%
  for b = lBound(Array_str_1) to uBound(Array_str_1)
%>
<input type="radio" name="str_<%=i%>" value="<%=Array_str_1(b)%>">
<%
next
%>
<%
  for b = lBound(Array_prize_1) to uBound(Array_prize_1)
%>
<input type="hidden" name="price_<%i%>" value="<%=Array_prize_1(b)%>">
<%
next
%>  &nbsp; pris pr. stk. <%=Array_prize_1(b)%>
     
<input type="hidden" name="own_id_<%i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if

end if
%>
<br><br><i>
<%
EndTime = Timer()
TotalTime = EndTime - StartTime
Response.write "Page was generated in: " & TotalTime & " sek." 
%></

hovsa der manglede en del = foran i i dine skjulte formfelter

<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<%
StartTime = Timer()
%>
<!--#include file="conn-inc.asp"-->
<% Response.Buffer = True %>

<% mode = request("mode") %><% if mode = "" then %>

<%
SQL = "SELECT * FROM kategori"
set rs = Conn.execute(SQL)

  while NOT rs.EOF%>
<div><b>Galleri Navn: </b><br>
<a href="?mode=show&view_id=<%=rs("id")%>"><%=rs("navn")%></a><br>
<b>Galleri Beskrivelse: </b><br>
<%=rs("desc")%><br>
</div> <%
  rs.MoveNext
Wend

Conn.close%>

<% end if %>
'
<%
dim i,b
if mode = "show" then
i = 0 %>

<%
if request("bestil") <> "" then
antal_poster = request("antal_poster")
for c = 1 to antal_poster
if request("antal_"& c) <> "" then
total_vare = request("antal_"& c) * request("price_"& c)
total_sum = int(total_sum) + int(total_vare)
comment = request("comment_"& c)
farve_type = request("farve_type_"& c)
own_id = request("own_id_"& c)
response.write "bestilling nr. " & c & " - " & request("antal_"& c) & " a kr. " & request("price_"& c) & " ialt kr. " & total_vare & "<br>"
' og så smider du dette i en mail streng og sender

end if
next

else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select * From prices"
set rs = Conn.execute(SQL)
if not rs.eof then
do
str = rs("size")
prize = rs("price")
str_1 = str & "," & str_1
prize_1 = prize & "," & prize_1
rs.movenext
loop while not rs.eof
end if
prize_1 = trim(prize_1)
str_1 = trim(str_1)

If Right(prize_1, 1) = "," Then
prize_1 = Left(prize_1, len(prize_1)-1)
End If
If Right(str_1, 1) = "," Then
str_1 = Left(str_1, len(str_1)-1)
End If
Array_str_1 = Split(str_1,",")
Array_prize_1 = Split(prize_1,",")
'her henter du priser og størrelser
if mode = "show" then
SQL = "Select * From billeder where own_id="& Request.QueryString("view_id")
set rs = Conn.execute(SQL)
if not rs.eof then
%>
<form name="form" method="post" action="bestilling.asp">
<%
do
i = i + 1
%>
<tr>
    <td>
    Angiv antal:    <input name="antal_<%i%>" type="text" size="5">        &nbsp;
<%
  for b = lBound(Array_str_1) to uBound(Array_str_1)
%>
<input type="radio" name="str_<%=i%>" value="<%=Array_str_1(b)%>">
<%
next
%>
<%
  for b = lBound(Array_prize_1) to uBound(Array_prize_1)
%>
<input type="hidden" name="price_<%=i%>" value="<%=Array_prize_1(b)%>">
<%
next
%>  &nbsp; pris pr. stk. <%=Array_prize_1(b)%>
     
<input type="hidden" name="own_id_<%=i%>" value="<%=rs("own_id")%>">
<input type="hidden" name="comment_<%=i%>" value="<%=rs("comment")%>"></td>
    <td>&nbsp;</td>
  </tr>

<%
rs.movenext
loop while not rs.eof
end if
%>
  <tr>
      <td></td>
    <td>
<input type="hidden" name="antal_poster" value="<%=i%>">
        <input type="submit" name="bestil" value="bestil">
    </td>
  </tr> </form>
</table>
<%
end if
end if

end if
%>
<br><br><i>

det sidste du sendte giver den samme fejl igen.

i min con include ligger:

<%
dim connect

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ="Driver={MySQL};SERVER=localhost;DATABASE=XX;UID=XX;PASSWORD=XX"

%>

givet op?

luk