Den her funktion sætter du bare ind i stedet for din egen... myheight er højden på popupen og mywidth er selvfølgelig bredden
Du kan se der er nogle indstillinger i winstyle (status=on,toolbar=on) - disse kan du bare ændre... Du kan se en liste over dem her: http://html.dk/artikler/00004/
'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")&""
Response.Write "<u>Tilberedningstid:</u> " & rs("tid") & " 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 & " <br><br>"
intmyid = Request("tempKey") If (intmyid = "" Or Not IsNumeric(intmyid)) Then intmyid = 0 End If strSQL = "Select kw_beskriv From keywords Where (kw_ID = " & intmyid & ")"
Set rs = Conn.Execute(strSQL)
if rs.EOF then
' her skriver du det... response.write "Der er ikke nogen beskrivelse for denne vare."
så nu er det hele bare top. Læg et svar og så takker jeg for jeres dejlige hjælp. det var nu dejligt at det skulle være så svært, for næste gang kan jeg selv lave det.
-- det gør jeg forøvrigt heller ikke, men jeg ved at muy bueno sådan skrevet sådan nogenlunde kan oversættes til:
Skide godt, Egon !-)
-- og tak for point ;~}
Synes godt om
Ny brugerNybegynder
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.