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
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
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!!!!!!!
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
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
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
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") %>
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(&quot;data&quot;)::" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="Session(&quot;data&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="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">Dette er begyndelsen af området med databaseresultater.</font></td></tr>" 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" -->
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>
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"
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.