Avatar billede kagge Nybegynder
30. august 2002 - 12:55 Der er 6 kommentarer og
1 løsning

Link med overførsel af værdi

Lige et spørgsmål omkring overførsel af unik værdi via link....

Mit problem er at jeg udtrækker nogle poster med følgende søgestreng:

strSQL = "SELECT Nr, Dato, Tid, Initialer, Sted FROM Hotlineregistrering"

De fremkomne poster bliver fremvist i en tabel med Nr som entydig værdi for hver post...

Herefter kan man indtaste Nr på den post som man vil ind og redigere i ved hjælp af nedenstående form:

<FORM NAME="sag" ACTION="sendopg.asp" METHOD="post">
        <B>Indtast sagsnr.:</B><INPUT TYPE="text" name="sagsnr" size="5"> <INPUT TYPE="submit" VALUE="Åben sagsnr.">
      </FORM>

formularen sendes til nedenstående side, hvor det indtastede tal tjeckes op mod posterne i databasen. Når den finder posten svarende til det indtastede tal i formularen fremviser den det i en formular hvor brugeren kan redigere sine data på en ny side..

-----------------------------------------------------

buffer = Request.Form("sagsnr")
  recordSet.Delete
  recordSet.addNew
  recordSet("Sagsnummer") = buffer
  recordSet.update

  buffer1 = recordSet("Sagsnummer")


recordSet1.Movefirst
While not recordSet1.EOF
  if (recordSet1("Nr")) = buffer1 then
    Response.Redirect ("http://147.29.196.40:82/sagsnummer.asp")
  end if
    recordSet1.Movenext
    wend

Hvordan laver man det så man i stedet for at indtaste tallet på den pågældende post i formularfeltet bare kan klikke på et link som så overfører sagsnummeret....

Håber i forstår ellers spørg endelig. 150 point til den som kommer med et svar som jeg kan få til at virke.
Avatar billede klid Nybegynder
30. august 2002 - 13:21 #1
Dine link i tabellen bør skrives:

<a href="sendopg.asp?key=sagsnr">sagsnr</a>

Du henter sagsnummeret i sendopg:

Nr=Request.QueryString(key)
Avatar billede eagleeye Praktikant
30. august 2002 - 13:33 #2
Di laver dit link som dette:

<a href="sendopg.asp?sagsnr=<%=rs("nr")%>">Sag nr.: <%=rs("nr")%></a>


Så rette du denne linie:
buffer = Request.Form("sagsnr")

Til:
buffer = Request.QueryString("sagsnr")
Avatar billede kagge Nybegynder
30. august 2002 - 13:40 #3
Eagleeye -->

Hvordan sammensætter jeg din første linie kode i min udskrivningsløkke som er herunder: Jeg har prøvet lidt forskelligt uden held...

Do While recordSet.BOF = FALSE AND recordSet.EOF = FALSE
  response.write vbTab & "<tr>" & vbCrLf

c1 = "#FFFFFF"
For i = 0 to recordSet.Fields.Count -1
        if isnull(recordSet.Fields(i).value) then
            response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """>&lt;null&gt;</td>" & vbCrLf
        else
          if i = 0 then
            response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """>" & recordSet.Fields(i) & "</td>" & vbCrLf
          else
            response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """>" & recordSet.Fields(i) & "</td>" & vbCrLf
          end if
        end if
NEXT

    response.write vbTab & "</tr>" & vbCrLf
    recordSet.Movenext
Loop
Avatar billede eagleeye Praktikant
30. august 2002 - 15:26 #4
Du udskriver dit recordet sæt med Fields(i) .... Hvad hedder kolonnen som er indeholder unik id og hvornår udskrives den??? Altså er det når i = 0  ??
Avatar billede kagge Nybegynder
30. august 2002 - 15:29 #5
Kolonnen hedder "Nr" og det er den allerførste. Så det er når i=0
Avatar billede eagleeye Praktikant
30. august 2002 - 15:32 #6
Ok så prøv dette:



Do While recordSet.BOF = FALSE AND recordSet.EOF = FALSE
  response.write vbTab & "<tr>" & vbCrLf

c1 = "#FFFFFF"
For i = 0 to recordSet.Fields.Count -1
        if isnull(recordSet.Fields(i).value) then
            response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """>&lt;null&gt;</td>" & vbCrLf
        else
          if i = 0 then
            response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """><a href=""sendopg.asp?sagsnr=" & recordSet.Fields(i) & """>" & recordSet.Fields(i) & "</a></td>" & vbCrLf
          else
            response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """>" & recordSet.Fields(i) & "</td>" & vbCrLf
          end if
        end if
NEXT

    response.write vbTab & "</tr>" & vbCrLf
    recordSet.Movenext
Loop
Avatar billede kagge Nybegynder
30. august 2002 - 17:00 #7
--> Eagleeye

Du er en haj. Nu har jeg sat det ind og det fungerer lige som det skal. Tusind tak for hjælpen. Du har efterhånden lært mig meget asp så det er rigtig fedt :-)
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