Avatar billede sjc Nybegynder
02. december 2002 - 12:50 Der er 26 kommentarer

Overførsel af variabel fra en side til en anden

jeg skal have Kunde_Nr fra et SQL kald overført til en anden side:
Jeg er ikke inde i ASP men har fået dette anbefalet:

Session("data") = Fields("Kunde_Nr")    Response.Redirect "Komponentbors_Opret.asp"
(Se 6-7 sidste linie)

Når jeg indlægger:
Session("data") = Fields("Kunde_Nr")       
går siden Ned !!! Hvad er fejlen
Må jeg kalde "data" for "Kunde_Nr" !!!!

På Siden Komponentbors_Opret.asp
skal jeg bruge KundeNr her:

SELECT * FROM Halvleder_Komponentbors where Kunde_Nr = ::Kunde_Nr::

Hvordan skal jeg definere Kunde_Nr her!!

---------------------------------------------
<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strBrugernavn = unQuote(request("Brugernavn"))
        strAdgangskode = unQuote(request("Adgangskode"))

  Sql = "Select Count(*) as Found from Adgangskoder where (Brugernavn = '" & strBrugernavn  & "') and (Adgangskode ='" & strAdgangskode  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT Kunde_Nr FROM Adgangskoder where (Brugernavn = '" & Request("Brugernavn") & "') and (Adgangskode ='" & Request("Adgangskode") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "yes mate"
     
    Session("data") = Fields("Kunde_Nr")
    Response.Redirect "Komponentbors_Opret.asp"   
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if

%>
Avatar billede colg Nybegynder
02. december 2002 - 12:52 #1
hmmm du kunne jo oz eventuelt bruge querystrings :) ved ik hvor sikkert det er i den her situation men det virker da somregel
Avatar billede sjc Nybegynder
02. december 2002 - 13:03 #2
Undskyld men det siger mig intet. Jeg er ikke inde i ASP og ved intet om querystring.
Venligst rediger i mit script så det virker så vil jeg blive glad!!!!!!!
Avatar billede colg Nybegynder
02. december 2002 - 13:15 #3
oki skal prøve
Avatar billede colg Nybegynder
02. december 2002 - 13:19 #4
istedet for Fields("Kunde_Nr") så prøv Request.Form("Kunde_Nr") hvis det er et felt det skal instastes i så vidt jeg ved findes der ik en fields funktion
Avatar billede colg Nybegynder
02. december 2002 - 13:20 #5
eller DOH mig
Avatar billede colg Nybegynder
02. december 2002 - 13:20 #6
rs("Kunde_Nr") hvis det er fra database
Avatar billede sjc Nybegynder
02. december 2002 - 13:26 #7
Jeg er som sagt ikke inde i ASP og er derfor helt lost!
Som du kan se hentes Kunde_Nr fra en access database ved et Sql kald.
Vil du rette i det skript jeg har bilagt. Jeg aner ikke hvordan det skal stå - Kan du hjælpe mig bliver jeg glad
Avatar billede colg Nybegynder
02. december 2002 - 13:27 #8
<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strBrugernavn = unQuote(request("Brugernavn"))
        strAdgangskode = unQuote(request("Adgangskode"))

  Sql = "Select Count(*) as Found from Adgangskoder where (Brugernavn = '" & strBrugernavn  & "') and (Adgangskode ='" & strAdgangskode  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT Kunde_Nr FROM Adgangskoder where (Brugernavn = '" & Request("Brugernavn") & "') and (Adgangskode ='" & Request("Adgangskode") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "yes mate"
     
    Session("data") = rs("Kunde_Nr")
    Response.Redirect "Komponentbors_Opret.asp"   
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if

%>
Avatar billede colg Nybegynder
02. december 2002 - 13:27 #9
vil jeg mene
Avatar billede sjc Nybegynder
02. december 2002 - 13:43 #10
Tak den åd rs men jeg mangler at få værdien ud på siden Komponentbors.asp. Før kan jeg ikke se om det lykkedes 100%
Jeg giver dobbelte point hvis du kan skrive hvordan jeg skal gøre.

Jeg har 2 steder i 2 formularfelter på siden Komponentbors_Opret.asp, hvor Kunde_Nr skal ind:
1. sted er en formular liste der viser databaseresultaterne.
Her ligger:
SELECT * FROM Halvleder_Komponentbors where Kunde_Nr = ::Kunde_Nr::
Hvor Kunde_Nr skal ind ved ::Kunde_Nr::
Hvordan går jeg!!!!!!!!!!

2. sted er en Formulartekstbox.
Jeg har prøvet dette - men det virker ikke. Skal data være Kunde_Nr!
<%= session("data") %>
Avatar billede colg Nybegynder
02. december 2002 - 13:48 #11
der hvor den skal bruges indsætter du " & Session("data") & "
Avatar billede colg Nybegynder
02. december 2002 - 13:49 #12
eller bare Session("data")
Avatar billede colg Nybegynder
02. december 2002 - 13:49 #13
kommer an på i hvilken sammenhæng du kan prøve
Response.Write "Hey din nisse du har kunde nr" & Session("data")
Avatar billede colg Nybegynder
02. december 2002 - 13:51 #14
så skulle der gerne står Hey din nisse du har kunde nr og så kunde nr
Avatar billede sjc Nybegynder
02. december 2002 - 14:06 #15
Jeg kan ikke få det til at virke. Kan du ikke skrive det fuldt ud.

eksempel 1:
::  (hvad skal der stå her mellem prikkerne) ::
eksempel 2:
Skal <%  xxxx  %> med ind i boxen - vil du skrive det rigtige fuldt ud
Avatar billede colg Nybegynder
02. december 2002 - 14:13 #16
Response.Write "::" & Session("data") & "::"
fatter ik eksempel 2
Avatar billede sjc Nybegynder
02. december 2002 - 14:39 #17
Jeg kan ikke finde ud af det. Prøv at se det fulde script:
Vil du rette det så det står korekt:
------------eksempel 1:---------------
    <!--webbot bot="DatabaseRegionStart" s-columnnames="ID,Kunde_Nr,Komponent,Type,Fabrikat,Spacing_Dimension,Packing,Alder_Datostempling,Styk_Maengde,Pris,Firma,Navn,Telefon_Nr,Fax_Nr,E_Mail,Note,Dato" s-columntypes="3,3,202,202,202,202,202,202,202,202,202,202,202,202,202,202,135" s-dataconnection="Komponentbors" b-tableformat="TRUE" b-menuformat="FALSE" s-menuchoice="ID" s-menuvalue="ID" b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns="ID,Kunde_Nr,Komponent,Type,Fabrikat,Spacing_Dimension,Packing,Alder_Datostempling,Styk_Maengde,Pris,Firma,Navn,Telefon_Nr,Fax_Nr,E_Mail,Note,Dato" s-criteria s-order s-sql="SELECT * FROM Halvleder_Komponentbors where Kunde_Nr = ::Session(&amp;quot;data&amp;quot;)::" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="Session(&amp;quot;data&amp;quot;)=" s-norecordsfound="Der er ikke blevet returneret nogen poster." i-maxrecords="256" i-groupsize="5" botid="0" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="TBODY" preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Dette er begyndelsen af området med databaseresultater.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" startspan b-WasTableFormat="TRUE" --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>Komponenten Databaseresultater på denne side kan ikke vise databaseindhold. Siden skal have et filnavn, der slutter med '.asp', og Webstedet skal findes på en server, der understøtter Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Halvleder_Komponentbors where Kunde_Nr = ::Session(""data"")::"
fp_sDefault="Session("data")="
fp_sNoRecords="<tr><td colspan=17 align=left width=""100%"">Der er ikke blevet returneret nogen poster.</td></tr>"
fp_sDataConn="Komponentbors"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="ID"
fp_sMenuValue="ID"
fp_iDisplayCols=17
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="26576" -->

---------------Eksempel 2-----------------------


<p>&nbsp;</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="540" id="AutoNumber2" height="252">
  <tr>
    <td width="538" height="252">
    <form method="POST" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
  <!--webbot bot="SaveDatabase" suggestedext="asp" u-asp-include-url="_fpclass/fpdbform.inc" s-dataconnection="Komponentbors" s-recordsource="Halvleder_Komponentbors" u-database-url="fpdb/Komponentbors.mdb" s-form-fields="Note Fabrikat Fax_Nr Dato Styk_Maengde Type Telefon_Nr Pris Navn Komponent Spacing_Dimension Kunde_Nr Alder_Datostempling Packing E_Mail Firma" s-form-dbfields="Note Fabrikat Fax_Nr Dato Styk_Maengde Type Telefon_Nr Pris Navn Komponent Spacing_Dimension Kunde_Nr Alder_Datostempling Packing E_Mail Firma" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="40548" --><p>
  Opret Komponentbørs&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Kunde Nr&nbsp;


<input type="text" name="data" size="6" value="Session(&quot;data&quot;)"></p>
 
 
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1">
    <tr>
      <td width="16%">Komponent</td>
Avatar billede colg Nybegynder
02. december 2002 - 16:22 #18
fp_sQry="SELECT * FROM Halvleder_Komponentbors where Kunde_Nr =" & Session("data")
Avatar billede colg Nybegynder
02. december 2002 - 16:22 #19
såen need point?
Avatar billede sjc Nybegynder
03. december 2002 - 10:22 #20
Det virker ikke. Jeg benytter frontpage. Når jeg saver:
fp_sQry="SELECT * FROM Halvleder_Komponentbors where Kunde_Nr =" & Session("data")
Overskrives det af noget andet. Siden går herefter ned.
Hvordan skal det så stå!!

Hvad med eksempel 2:
<input type="text" name="data" size="6" value="Session(&"data&")"></p>
Avatar billede colg Nybegynder
09. december 2002 - 10:59 #21
<input type="text" name="data" size="6" value="<%= Session("data") %>"></p>
Avatar billede colg Nybegynder
09. december 2002 - 10:59 #22
fp_sQry = "SELECT * FROM Halvleder_Komponentbors where Kunde_Nr=" & Session("data") så vidt jeg ved
Avatar billede sjc Nybegynder
09. december 2002 - 11:40 #23
Tak fordi du vendte tilbage. Jeg har selv kæmpet videre og har også fået det til at køre ,men jeg mangler stadig det vigtigste at få Kunde_Nr ud af SQL kaldet så det kan overføres til næste side.

Indtil nu har jeg:
-------------------------------------------
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT Kunde_Nr FROM Adgangskoder where (Brugernavn = '" & Request("Brugernavn") & "') and (Adgangskode ='" & Request("Adgangskode") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "yes mate"
   
 
   
    Session("data") = rs("Kunde_Nr")       
     
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if

%>

<input type="hidden" name="Kunde_Nr" size="12" value="Session(&"data&")" style="padding: 0"><br>
----------------------------------------

Jeg vil bruge resten af dagen til at arbejde på dette - vil du hjælpe! Du får under alle omstændigheder 60 point  for dit arbejde. Og 100 når det kører
Avatar billede colg Nybegynder
13. december 2002 - 16:53 #24
oki :) hmmm sry at jeg først er back nu
Avatar billede colg Nybegynder
13. december 2002 - 16:54 #25
<input type="hidden" name="Kunde_Nr" size="12" value="<%= Session("data") %>" style="padding: 0"><br>
Avatar billede colg Nybegynder
13. december 2002 - 16:55 #26
såen skal den ihvertfald være
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester