overføre id og udskrive?

Hej Ponyboye..

Ligger beskrivelsen af "løg" i samme post?

Vil du have, at når der trykkes på javascriptet, at postens id overføres til popupen?

beskrivelse af "løg" lægger i en tabel for sig selv.
Ja når der trykkes på javascriptet, skal postens id overføres til popupen og herefter udskrive den beskrivels med dette id

jeg kan bare ikke får det over i popup og udskrive det

Undskyld sent svar.

Det burde da være lige til, hvis vi altså ikke misforstår hinanden lige nu.

Du har id´et ude allerede. Så er det jo bare, at videreføre det. Jeg laver en ekstra Query i dit javascript, og kalder det extra.

<script language="JavaScript">
function doKey(mykey) {
window.open("beskriv.asp?extra=<%=kw_ID%>&key="+mykey);
}
</script>

Så skal du bare i pop upen fange "extra", og åbne databasen.

Det kunne du gøre ved at sige:

strSQL = "SELECT FROM keywords WHERE kw_ID = Request.Querystring("extra")"

jeg siger også undskyld for den senene besvarelse.

Dette har jeg fået lavet og dette virker fint, men det giver problemer når jeg prøver den har overført id´en og skal udtrække dataer. Så viser den det som der ikke er noget i databasen, men den har lige overført id´en fra siden før. Det kan jeg ikke forstå..Den slutter bare af med at udføre komadoen

response.write "Der er ikke nogen beskrivelse for denne vare"

DATABASE FELTER:

kw_ID - automummering
kw_word - nota
kw_beskriv - tekst


SIDEN DER VISER OPSKRIFTEN:


<%
OpenDatabase

'Hent array med keywords:
strSQL = "SELECT kw_ID, kw_word FROM keywords"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then arrKeywords = rs.getRows() End If
rs.Close
Set rs = Nothing

strSQL = "Select * From opskrifter Where id = "&Request.Querystring("id")&""

Set rs = Conn.Execute(strSQL)

Response.Write "Navn:&nbsp;" & rs("navn") & "<br><br>"

Response.Write "<u>Antal personer:</u>&nbsp;" & rs("personer") & "<br><br>"

Response.Write "<u>Tilberedningstid:</u>&nbsp;" & rs("tid") & "&nbsp;min" & "<br><br>"
'Her stopper vi lige og leder efter keywords:
strTekst = rs("in1")
If (IsArray(arrKeywords)) Then
For i = 0 To UBound(arrKeywords,2)
  tempKey = arrKeywords(1,i)
  strTekst = Replace(Replace(strTekst, LCase(tempKey), "<a href='#' onClick='java script:doKey(" & arrKeywords(0,i) & ")'>" & LCase(tempKey) & "</a>"), tempKey, "<a href='#' onClick='java script:doKey(" & arrKeywords(0,i) & ")'>" & tempKey & "</a>")
Next
End If

'Vi udskriver den ændrede tekst i stedet for orginalteksten:
Response.Write "<u>Ingedienser:</u><br><br>" & strTekst & "&nbsp;&nbsp;<br><br>"

Response.Write "<u>Fremgangsmåde:</u><br><br>" & rs("fremgang") & "<br><br><br><br>"

Response.Write "<u>Skrevet af:</u>&nbsp;&nbsp;&nbsp;" & rs("af") & "<br><br>"

CloseDatabase
%>
</tr>
</table>

<!-- JavaScript -->
<script language="JavaScript">
function doKey(mykey) {
window.open("beskriv.asp?id="+mykey);
}
</script>



SIDEN DER MODTAGER:

<%
OpenDatabase

intMyKey = Request("tempKey")
If (intMyKey = "" Or Not IsNumeric(intMyKey)) Then
intMyKey = 0
End If
strSQL = "Select kw_beskriv From keywords Where (kw_ID = " & intMyKey & ")"
Set rs = Conn.Execute(strSQL)

if rs.EOF then

  ' her skriver du det...
  response.write "Der er ikke nogen beskrivelse for denne vare."

  else
 
  Response.Write "<u>Skrevet af:</u>&nbsp;&nbsp;&nbsp;" & rs("kw_beskriv") & "<br><br>"
 
    end if
  CloseDatabase
 
%>