Connect kun til Database EN gang

Det er nok bare mig som misforstår noget men hvad er problemet? Kan du ikke bare længere nede i koden sige Produkter.Source = blah blah blah... eller hvad?

Mvh Mark

www.fotx.net/orca

UPS, det lyder faktisk som noget af det rigtige :
MEN hvor sætter jeg det ind.....
Kan du vise mig det ud fra følgende kode for hele siden :

<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../Connections/conProdukter.asp\" -->
<%
set Produkter = Server.CreateObject(\"ADODB.Recordset\")
Produkter.ActiveConnection = MM_conProdukter_STRING
Produkter.Source = \"SELECT *  FROM PC_Celeron\"
Produkter.CursorType = 2
Produkter.CursorLocation = 2
Produkter.LockType = 3
Produkter.Open()
Produkter_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form name=\"form1\" method=\"post\" action=\"\">
  <p>
    <select name=\"select\">
      <%
While (NOT Produkter.EOF)
%>
      <option value=\"<%=(Produkter.Fields.Item(\"Pris1\").Value)%>\" ><%=(Produkter.Fields.Item(\"VareNavn\").Value)%></option>
      <%
  Produkter.MoveNext()
Wend
If (Produkter.CursorType > 0) Then
  Produkter.MoveFirst
Else
  Produkter.Requery
End If
%>
    </select>
  </p>
  <p>
    <select name=\"select2\">
      <%
While (NOT Produkter.EOF)
%>
      <option value=\"<%=(Produkter.Fields.Item(\"Pris1\").Value)%>\" ><%=(Produkter.Fields.Item(\"VareNavn\").Value)%></option>
      <%
  Produkter.MoveNext()
Wend
If (Produkter.CursorType > 0) Then
  Produkter.MoveFirst
Else
  Produkter.Requery
End If
%>
    </select>
  </p>
  <p>
    <select name=\"select3\">
    </select>
  </p>
</form>
</body>
</html>
<%
Produkter.Close()
%>

Kan du ikke prøve at uddybe hvad det er du vil precist? Du kan jo lave noget lignende dette

\'her definerer du din connection
Produkter.Source = \"blahblahblah\"
\'her gør du en masse med Produkter.Source
\'her laver du så en ny \"Produkter\'
Produkter.Source = \"blahblahblah2\"

Det du gør her er bare at længere nede i dokumentet giver du Produkter en ny source.

Du kan evt. også gøre således:


set Produkter = Server.CreateObject(\"ADODB.Recordset\")
Produkter.ActiveConnection = MM_conProdukter_STRING
Produkter.Source = \"SELECT *  FROM PC_Celeron\"
Produkter.CursorType = 2
Produkter.CursorLocation = 2
Produkter.LockType = 3
Produkter.Open()
Produkter_numRows = 0

\'her laver du dine Produkter1,2,3 etc.
Produkter1 = Produkter
Produkter2 = Produkter
Produkter3 = Produkter

\'definer deres source
Produkter1.Source = blah
Produkter2.Source = blah2
Produkter3.Source = blah3

det er ikke nogen særligt fin måde at gøre det på og derfor vil jeg gerne at du beskriver lidt mere nøjagtigt hvad du skal bruge det til, så jeg kan lave en bedre kode

bruger du DW Ultra-Dev ?
Fordi det er sådan noget volapyk DW laver

enig... Notesblok styrer for vildt!

ja..den bruger jeg også efter Ultra-Edit fuckede op :(

Til orca ....
Prøv at se på :
http://www.nordicdata.dk/shop/pc-konfigurator_ny.asp

Der åbner jeg bare en database connection for hver listboks....
Det gør vist ikke siden \"særlig hurtig\"...
Så det går jo nok ikke !!!

ang. DW Ultra-DEV : Tjaaa, når men ikke kan ret meget programering og skal lave en webside ???

jeg syntes det var svære da jeg prøvede det end bare at programere i notesblok...

djblues... Ikke for at være ond eller noget :). Jeg vil foreslå at du dropper al den kode du har der og i stedet laver noget nyt for <undskyld>Det dreamweaver generede shit</undskyld> der dur altså ikke ;o). Det hele bliver hentet ud fra en og samme database ikke? Er der en tabel til hver listboks? Hvilke felter er der i tabellerne?

Mvh Mark

Nej, der er ikke en tabel til hver listboks men jeg vil hente ind med kriterier ...
SE HER :
------
Listeboks 1 :
SELCECT * PC_CELERON WHERE KATEGORI=\'Motherboard - Intel\'
------
OK, til at droppe den kode jeg her, MEEEN
jeg kan ikke lave en ny kode, da jeg ikke er programmør........
......

Her er lige lidt kode...

Sørg for at din connection string \"hedder\" \"Conn\"

så gør du således:

<%
Set rs = Conn.Execute(\"SELECT * FROM PC_CELERON WHERE KATEGORI=\'Motherboard -Intel\'\")

\'hvis der findes records med kategorien \"Motherboard - Intel\"
If NOT rs.BOF or rs.EOF then
%>
<select name=\"selectName\" size=\"1\">
<%
While NOT rs.EOF
%>
<option value=\"<%=rs(\"feltnavn\")%>\"><%=rs(\"feltnavn\")%></option>
<%
rs.moveNext
Wend
%>
</select>
<%
\'slut på ASP kode
%>

Jeg håber at dette kan hjælpe dig. Denne ovenstående kode vælger alle records med kategorien Motherboards - Intel og kommer dem så ind i en listboks.

Spørg hvis der er problemer.

Mvh Mark

www.fotx.net/orca

Noget i den her stil ::::

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
set Conn = Server.CreateObject(\"ADODB.Recordset\")
Conn.ActiveConnection = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=t:\\inetpub\\dom50192\\database\\produkter.mdb\"
Conn.Source = \"SELECT * FROM Produkter\"
Conn.CursorType = 0
Conn.CursorLocation = 2
Conn.LockType = 3
Conn.Open()
Conn_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">

<%
Set rs = Conn.Execute(\"SELECT * FROM PC_CELERON WHERE KATEGORI=\'Motherboard -Intel\'\")

\'hvis der findes records med kategorien \"Motherboard - Intel\"
If NOT rs.BOF or rs.EOF then
%>
<select name=\"selectName\" size=\"1\">
<%
While NOT rs.EOF
%>
<option value=\"<%=rs(\"feltnavn\")%>\"><%=rs(\"feltnavn\")%></option>
<%
rs.moveNext
Wend
%>
</select>
<%
\'slut på ASP kode
%>


</body>
</html>
<%
Conn.Close()
%>

--------
Får følgende fejl :
Microsoft VBScript compilation error \'800a03f6\'

Expected \'End\'

/shop/pc-konfigurator_ny1.asp, line 43

Løste det vist .... selv-----

Giver lige svar tilbage om jeg får resten til at virke

Hej Igen .....
Hvorfor kan jeg ikke bruge :
****************************
<%
set Conn = Server.CreateObject(\"ADODB.Recordset\")
Conn.ActiveConnection = MM_conProdukter_STRING
Conn.Source = \"SELECT * FROM Produkter\"
Conn.CursorType = 0
Conn.CursorLocation = 2
Conn.LockType = 3
Conn.Open()
Conn_numRows = 0
%>
****************************
ISTEDET FOR :
****************************
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=t:\\inetpub\\dom50192\\database\\produkter.mdb\"
%>
****************************

Disse er to forskellige \"strenge\". Den ene (nederste) definerer hvor databasen ligger samt hvordan den skal forbinde til den. Den øverste gør siden parat til at arbejde med et recordsæt i en database, (opdatere, slette eller lave et nyt).

Mvh Mark

Hej Orca
Tja, hvad kan jeg sige .....
Nu virker det sgu.....

Hvis du vil se det endelige resultat så se på
www.b2bonline.dk
om ca. 1 uge...

MANGE TAK FOR HJÆLPEN