Request.form???

æh ja hvad så?

Sorry hvordan får jeg vist resten af oplysningerne af den pågældende vare?

uhm...

varenr = request.form(\"varenr\")

strSQL = \"Select * from tabel where (varenr = \"& varenr &\")\"

<%
if( request.Servervariables(\"REQUEST_METHOD \") == \"post\" ) then
  Conn = ditt connectionobject
  Set RS = Conn.Execute(\"SELECT * FROM [din tabell] WHERE varenummer = \" & Request.form(\"varenum\")
  while NOT RS.EOF
    response.write rs(\"varenummer\") \'og alt anne du vil skrive ut
  wend
else
  %>
  <form method=\"post\">
  Tast inn varenummer:<input type=\"text\" name=\"varenum\"><br>
  Tast inn antall: <input type=\"text\" name=\"antal\"><br>
  <input type=\"submit\">

  </form>
  <%
end if
%>

Det som jeg tænker på er:
Når formen submittes med den ønskede vare og antal vises på næste side resten af oplysningerne af varen...

antall har vel ingen betydning. Hvis man velger 5 som antall, så har du vel fremdeles kun en vare å vise frem ??

Ja det er rigtigt men ordren skal godkendes...

jeg har vist deg hvordan du på \"neste\" side henter ut alle opplysninger om en vare i min posting @ 07/05 2001 18:12:00 

Det virker ikke

Jeg får denne feklmeddelse:


Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/ep/test4.asp, line 10, column 48
if( request.Servervariables(\"REQUEST_METHOD \") == \"post\" ) then
-----------------------------------------------^

if( request.Servervariables(\"REQUEST_METHOD \") = \"post\" ) then

Nu får jeg denne fejl:


Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet \')\' var ventet
/ep/test4.asp, line 15, column 89
Set RS = Conn.Execute(\"SELECT * FROM prisliste WHERE varenr = \" & Request.form(\"varenum\")
----------------------------------------------------------------------------------------^

legg til en ) på slutten:

Set RS = Conn.Execute(\"SELECT * FROM prisliste WHERE varenr = \" & Request.form(\"varenum\"))

Det har jeg gjordt nu. Jeg kan godt taste varenummer ind i formen og antal men når jeg submitter den blinker siden bare en gang og jeg kan starte forfra

Her er min kode:
...............................................

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
  <%
if( request.Servervariables(\"REQUEST_METHOD \") = \"post\" ) then
  Dim Conn_String
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"varer.mdb\")
    Set Conn=Server.CreateObject(\"ADODB.Connection\")
    Conn.Open Conn_String
  Set RS = Conn.Execute(\"SELECT * FROM prisliste WHERE varenr = \" & Request.form(\"varenum\"))
  while NOT RS.EOF
    response.write rs(\"varenr\")
    Response.Write RS(\"beskrivelse\")
  wend
else
  %>
  <form method=\"post\">
  Tast inn varenummer:<input type=\"text\" name=\"varenum\"><br>
  Tast inn antall: <input type=\"text\" name=\"antal\"><br>
  <input type=\"submit\">

  </form>
  <%
end if
%> 


</body>
</html>

hvad med at lave en action=\"navnet_på_din_fil.asp\"

altså <form method=\"post\" action=\"navnet_på_din_fil.asp\">

Hvordan?

Nå ikke ellers tak fo hjælpen

ehhh....what ?? hvorfor aksepterte du ditt eget svar ?

amatør...

her prøver vi å hjelpe deg, og så avviser du svarene vi gir...tsk...tsk...

Hallo hvis jeres svar ikke virker skal i så bare have point uden videre?
Nute: Tusind tak for hjælpen men det virkede altså ikke
cyberfessor: Din kommentar kunne jeg ikke bruge til noget desværre...amatør selv mand har jeg svinet dig eller hva\'?

hey hey...det SKAL virke...hvis det ikke virker er det fordi at DU har gjort noget galt !!

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
  <%
if( request.Servervariables(\"REQUEST_METHOD \") = \"post\" ) then
  Dim Conn_String
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"varer.mdb\")
    Set Conn=Server.CreateObject(\"ADODB.Connection\")
    Conn.Open Conn_String
  Set RS = Conn.Execute(\"SELECT * FROM prisliste WHERE varenr = \" & Request.form(\"varenum\"))
  while NOT RS.EOF
    response.write rs(\"varenr\")
    Response.Write RS(\"beskrivelse\")
  wend
else
  %>
  <form method=\"post\" action=\"ditscript.asp>
  Tast inn varenummer:<input type=\"text\" name=\"varenum\"><br>
  Tast inn antall: <input type=\"text\" name=\"antal\"><br>
  <input type=\"submit\">

  </form>
  <%
end if
%> 


</body>
</html>

sesam >> hverken meg eller cyberfessor har nevnt noe om pointsene i denne sammenheng. Vi forteller deg bare at vi synes det er merkelig at du ikke får det til å fungere, for det er en ellers \"perfekt\" kode vi har hjulpet deg til å få. Det jeg reagerer på er at det ser ut som om du gir opp før målet er nådd...du venter 4 minutter fra en posting (@ 07/05 2001 19:18:56), hvor du stiller et spørsmål, og sidn du ikke har fått svar innnen disse 4 minnuttene, så lukker du spørsmålet. Det holder ikke å gjøre sånn, og det eneste du oppnår er at personene her inne legger deg på sin blacklist...