Notifikationer

Markér alle som læst Log ud

sjc Nybegynder

30. november 2002 - 11:58 Der er 10 kommentarer og
1 løsning

Udtræk værdi fra en SQL Select og overfør den til en ny form

Jeg har en login formular. I en Acces DB har jeg Kunde_Nr,Brugernavn,Adgangskode.
Efter login vil jeg have Kunde_Nr overført til
en ny form Komponentbors_Opret.asp.
Det virker ikke.
Hvad har jeg gjort forkert!

<%
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"
Response.Redirect "Komponentbors_Opret.asp?Kunde_Nr="& .Fields("Kunde_Nr") &""
EZ.Close
RS.Close
Conn.Close
end if
end if

%>

Synes godt om

Slettet bruger

30. november 2002 - 12:08 #1

Du kunne jo lave en sessionKundeNr = rs("Kunde_Nr") og i din Komponentbors_Opret.asp have et 'hidden' input felt hvis value er <%= sessionKundeNr %>

Synes godt om

taager-kongen Nybegynder

30. november 2002 - 12:12 #2

det fordi
Response.Redirect "Komponentbors_Opret.asp?Kunde_Nr="& .Fields("Kunde_Nr") &""

kan ikke klare det med ? og alt efter...
hvis du skal gøre det på en anden måde så:
udskift Response.Redirect "Komponentbors_Opret.asp?Kunde_Nr="& .Fields("Kunde_Nr") &""
med
strKunde_nr = Fields("Kunde_Nr")
%>


%>
i Komponentbors_Opret.asp laver du en value=" & strKune_nr & ">

forstår du?

Synes godt om

sjc Nybegynder

30. november 2002 - 12:28 #3

Nej jeg forstår det ikke.
Vil du hjælpe mig med at flætte det ind i det jeg har skrevet
så det står korekt

Synes godt om

taager-kongen Nybegynder

30. november 2002 - 13:02 #4

kom med Komponentbors_Opret.asp

Synes godt om

sjc Nybegynder

30. november 2002 - 13:27 #5

Jeg forstår ikke! LogIn siden har jeg jo ikke rettet. Det er den
jeg har sendt en stump af - men her er:
------- Komponentbors_Opret.asp -----------

<%
' FP_ASP ASP genereret automatisk af en FrontPage-komponent. Undlad at redigere.

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Der kan ikke oprettes forbindelse."

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."

fp_conn.Open Application("Komponentbors_ConnectionString")
FP_DumpError strErrorUrl, "Databasen kan ikke åbnes."

fp_rs.Open "Halvleder_Komponentbors", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."

fp_rs.AddNew
FP_DumpError strErrorUrl, "Der kan ikke føjes nye poster til databasen."
Dim arFormFields0(16)
Dim arFormDBFields0(16)
Dim arFormValues0(16)

arFormFields0(0) = "Note"
arFormDBFields0(0) = "Note"
arFormValues0(0) = Request("Note")
arFormFields0(1) = "Fabrikat"
arFormDBFields0(1) = "Fabrikat"
arFormValues0(1) = Request("Fabrikat")
arFormFields0(2) = "Fax_Nr"
arFormDBFields0(2) = "Fax_Nr"
arFormValues0(2) = Request("Fax_Nr")
arFormFields0(3) = "Dato"
arFormDBFields0(3) = "Dato"
arFormValues0(3) = Request("Dato")
arFormFields0(4) = "Styk_Maengde"
arFormDBFields0(4) = "Styk_Maengde"
arFormValues0(4) = Request("Styk_Maengde")
arFormFields0(5) = "Type"
arFormDBFields0(5) = "Type"
arFormValues0(5) = Request("Type")
arFormFields0(6) = "Telefon_Nr"
arFormDBFields0(6) = "Telefon_Nr"
arFormValues0(6) = Request("Telefon_Nr")
arFormFields0(7) = "Pris"
arFormDBFields0(7) = "Pris"
arFormValues0(7) = Request("Pris")
arFormFields0(8) = "Navn"
arFormDBFields0(8) = "Navn"
arFormValues0(8) = Request("Navn")
arFormFields0(9) = "Komponent"
arFormDBFields0(9) = "Komponent"
arFormValues0(9) = Request("Komponent")
arFormFields0(10) = "Spacing_Dimension"
arFormDBFields0(10) = "Spacing_Dimension"
arFormValues0(10) = Request("Spacing_Dimension")
arFormFields0(11) = "Kunde_Nr"
arFormDBFields0(11) = "Kunde_Nr"
arFormValues0(11) = Request("Kunde_Nr")
arFormFields0(12) = "Alder_Datostempling"
arFormDBFields0(12) = "Alder_Datostempling"
arFormValues0(12) = Request("Alder_Datostempling")
arFormFields0(13) = "Packing"
arFormDBFields0(13) = "Packing"
arFormValues0(13) = Request("Packing")
arFormFields0(14) = "E_Mail"
arFormDBFields0(14) = "E_Mail"
arFormValues0(14) = Request("E_Mail")
arFormFields0(15) = "Firma"
arFormDBFields0(15) = "Firma"
arFormValues0(15) = Request("Firma")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

fp_rs.Update
FP_DumpError strErrorUrl, "Databasen kan ikke opdateres."

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Formularbekræftelse",_
"Du har sendt følgende oplysninger:",_
"Komponentbors_Opret.asp",_
"Vend tilbage til formularen."

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Komponentbors_Opret</title>
<meta name="Microsoft Theme" content="chip-lerred- 001">
</head>

<body>
<p> </p>
<table width="100%" border="1">
<thead>
<tr>
<td><b>ID</b></td>
<td><b>Kunde_Nr</b></td>
<td><b>Komponent</b></td>
<td><b>Type</b></td>
<td><b>Fabrikat</b></td>
<td><b>Spacing_Dimension</b></td>
<td><b>Packing</b></td>
<td><b>Alder_Datostempling</b></td>
<td><b>Styk_Maengde</b></td>
<td><b>Pris</b></td>
<td><b>Firma</b></td>
<td><b>Navn</b></td>
<td><b>Telefon_Nr</b></td>
<td><b>Fax_Nr</b></td>
<td><b>E_Mail</b></td>
<td><b>Note</b></td>
<td><b>Dato</b></td>
</tr>
</thead>
<tbody>

<% 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 = ::Kunde_Nr::"
fp_sDefault="Kunde_Nr="
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=""
fp_sMenuValue=""
fp_iDisplayCols=17
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>

<tr>
<td>
<%=FP_FieldVal(fp_rs,"ID")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Kunde_Nr")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Komponent")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Type")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Fabrikat")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Spacing_Dimension")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Packing")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Alder_Datostempling")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Styk_Maengde")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Pris")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Firma")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Navn")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Telefon_Nr")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Fax_Nr")%></td>
<td>
<%=FP_FieldVal(fp_rs,"E_Mail")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Note")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Dato")%></td>
</tr>

</tbody>
</table>
<p> </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">
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><p>
Opret Komponentbørs                                           Kunde Nr  <input type="text" name="Kunde_Nr" size="6"></p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1">
<tr>
<td width="16%">Komponent</td>
<td width="35%">
<input type="text" name="Komponent" size="30" id="fp16" tabindex="1" maxlength="30"></td>
<td width="7%">  </td>
<td width="41%">Pris</td>
<td width="25%">
<input type="text" name="Pris" size="12" id="fp23" maxlength="12" tabindex="8"></td>
</tr>
<tr>
<td width="16%">Type</td>
<td width="35%">
<input type="text" name="Type" size="30" id="fp17" maxlength="30" tabindex="2"></td>
<td width="7%"> </td>
<td width="41%">Firma</td>
<td width="25%">
<input type="text" name="Firma" size="23" id="fp24" maxlength="30" tabindex="9"></td>
</tr>
<tr>
<td width="16%">Fabrikat</td>
<td width="35%">
<input type="text" name="Fabrikat" size="30" id="fp18" maxlength="25" tabindex="3"></td>
<td width="7%"> </td>
<td width="41%">Navn</td>
<td width="25%">
<input type="text" name="Navn" size="23" id="fp25" maxlength="25" tabindex="10"></td>
</tr>
<tr>
<td width="16%">Spacing/Dim</td>
<td width="35%">
<input type="text" name="Spacing_Dimension" size="30" id="fp19" maxlength="20" tabindex="4"></td>
<td width="7%"> </td>
<td width="41%">Tlf.Nr</td>
<td width="25%">
<input type="text" name="Telefon_Nr" size="20" id="fp26" maxlength="12" tabindex="11"></td>
</tr>
<tr>
<td width="16%">Packing</td>
<td width="35%">
<input type="text" name="Packing" size="20" id="fp20" maxlength="15" tabindex="5"></td>
<td width="7%"> </td>
<td width="41%">Fax.Nr</td>
<td width="25%">
<input type="text" name="Fax_Nr" size="20" id="fp27" maxlength="12" tabindex="12"></td>
</tr>
<tr>
<td width="16%">Alder/Dato</td>
<td width="35%">
<input type="text" name="Alder_Datostempling" size="20" id="fp21" maxlength="10" tabindex="6"></td>
<td width="7%"> </td>
<td width="41%">E Mail</td>
<td width="25%">
<input type="text" name="E_Mail" size="20" id="fp28" maxlength="30" tabindex="13"></td>
</tr>
<tr>
<td width="16%">Styk/Mæng.</td>
<td width="35%">
<input type="text" name="Styk_Maengde" size="20" id="fp22" maxlength="10" tabindex="7"></td>
<td width="7%"> </td>
<td width="41%">Note</td>
<td width="25%">
<input type="text" name="Note" size="23" id="fp29" maxlength="30" tabindex="14"></td>
</tr>
<tr>
<td width="16%"> </td>
<td width="35%"> </td>
<td width="7%"> </td>
<td width="41%">Dato</td>
<td width="25%">
<input type="text" name="Dato" size="15" id="fp30" tabindex="15"></td>
</tr>
</table>
<p><input type="submit" value="Opret" name="Opret"><input type="reset" value="Nulstil" name="Nulstil"></p>
</form>

</td>
</tr>
</table></body>

</html>

Synes godt om

taager-kongen Nybegynder

30. november 2002 - 13:42 #6

hvad for en input box vil du have data i ?

Synes godt om

taager-kongen Nybegynder

30. november 2002 - 13:45 #7

<%
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

%>

og i den box du vil havde dataen i skriver du i valeuen:
<%= session("data") %>
sådan :)

Synes godt om

sjc Nybegynder

30. november 2002 - 13:59 #8

Må jeg vende tilbage Mandag

Synes godt om

taager-kongen Nybegynder

30. november 2002 - 14:00 #9

du skal ikke regne med kan der...

Synes godt om

taager-kongen Nybegynder

30. november 2002 - 14:01 #10

ups stave fejl:
du skal ikke regne med jeg kan på mandag..

Synes godt om

sjc Nybegynder

02. december 2002 - 09:53 #11

Når jeg lægger denne linie ind går siden ned!!!!!!!!

session("data") = Fields("Kunde_Nr")

Hvad er forkert!!!!!!!

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS

02/10

Test: iPhone 18 Pro Max er telefonernes Mercedes S-klasse - Apple har (igen) bygget en fremragende telefon

02/10

Microsoft: På disse områder er hackerne klart foran i det store AI-kapløb

02/10

Nørgaard: Microsoft har et stort problem (men ingen bliver jo fyret for at vælge Copilot)

02/10

Stort læk af hotel-data kan ramme danskere før efterårsferien: Svindler dig lige nu med denne raffinerede metode

02/10

Tusindvis af frustrerede brugere på danske universiteter nødt til fortsat at anvende 35 år gammelt it-system fyldt med lappeløsninger

02/10

OpenAI advarer mere end 100 organisationer: I kan være hacket af vores løbske AI-agenter

02/10

Ny akutplan ændrer spillereglerne for datacentre i Danmark: Træder allerede i kraft om 10 dage - og kan få store konsekvenser

02/10

Efter 20 år er nedlukningen af vigtig Exchange-feature i gang: Det skal du gøre nu

02/10

DTU ramt af kæmpe hacker-angreb: 200.000 personers data kan være faldet i hackernes hænder

02/10

Legendariske Neuromancer på vej til dit tv: Det er tid til at koble sig på William Gibsons cyberspace

02/10

Europas største supercomputer-producent fordobler produktionen

Vis flere artikler

IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

IT-supporter til Level 3 support på Forsvarets operative C2 systemer

TV2

iOS-udvikler TV 2 Nyheder-appen

Epona A/S

Supportkonsulent til Advosys med flair for Word-skabeloner og makroer

KMD A/S

Head of Support, Energy & Utility

Region Midtjylland

IT-koordinator med stærke relations- og samarbejdsevner

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 12:14	Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29	Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16	Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41	NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
27/0916:43	Nomad Tracking Car Af fleknes i Apps til Android

White papers

Undgå at printeren bliver svageste led i sikkerheden
Konica Minolta
De spørgsmål 200+ danske virksomheder stiller om print – samlet i én guide
Konica Minolta
Fra MSP til MIP: Sådan gør du AI-agenter til forretning
Pax8
Samarbejde mellem AI og mennesker styrker sikkerheden
Konica Minolta

Flere white papers »