Klik ind i inputbox

siden man kan se screenshots på http://webintegrator.gts.dk/webgts071/screenshots.asp

Tænker du på:
<a href="#" onClick="document.forms[0].screen.value='obliv08b.jpg';">obliv08b.jpg</a>

jeg tænker ikke på noget for jeg har ingen forstand på hvordan jeg skal løse det her prob ;)

men når du trykker på en knap ved siden af billedet skal den kopiere teksten ind i input boxen "screenshot:"

Det burde den kode også gøre. Det kan også laves som knap:

<input type="Button" value="Kopi" onClick="document.forms[0].screen.value='obliv08b.jpg';return false;">

jamen det er et databaseudtræk jeg skal have kopieret ind, men hvis jeg skriver <%= rsscreen("screen") %> der hvor du har skrevet ='obliv08b.jpg' så sker der ikke noget...

kan du hjælpe mig med det ;) ?

Det bliver til noget i denne stil:
<%
while not rsscreen.eof %>
<a href='screen/<%= rsscreen("screen") %>' target='_blank' class='mainboxlinks'>Vis </a><%= rsscreen("screen") %><input type="Button" value="Kopi" onClick="document.forms[0].screen.value='<%= rsscreen("screen") %>';return false;">
<br>
<%
  rsscreen.MoveNext
wend

<%
if request("id") = "" then
sql = "SELECT * from screen"
end if
%>
<%
set rsscreen = Server.CreateObject("ADODB.recordset")
rsscreen.Open sql, database
%>
<%
While NOT rsscreen.EOF
%>
<a class="mainboxlinks" href="#" onClick="document.forms[0].screen.value="screen/<%= rsscreen("screen")%>;"> Vælg</a><br/>
<%
rsscreen.MoveNext
Wend
%>

sådan ser det ud, men jeg kan ikke få det til at virke.

Smid lige hele koden fra http://webintegrator.gts.dk/webgts071/skrivscreen.asp herind.

<!--#include file="style.asp" -->
<!--#include file="mindatabase.asp" -->
<%
if request("action") = "" then %>

<!-- her laver vi input boxe til hver tabel som vi skal lægge noget info ind i -->
<table cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="left" class="mainboxtext">
<form method="post" action="skrivscreen.asp?action=skriv">
Screenname: <input type="text" name="screenname"><br/>
Screenshot: <input type="text" name="screen"><br/>
<input type="Submit" value="Skriv" name="submit">
</form>
</td>
<td width="150"><font color="#8E6A3A">.</font></td>
<td class="mainboxtext">
<% response.write("<b>Tryk på vis for at se billede</b>")%><br/>
<%
sti = server.Mappath("screen")
sti2 = "screen/"'definere vi distinationen på filerne der skal uploades'

set fso = CreateObject("Scripting.FileSystemObject")'samler stien til filen'
set fsoFolder = fso.GetFolder(sti)

for each fFolder in fsoFolder.Files
    strName = LCase(fFolder.Name)
   
    response.write "<a href='" & sti2 & strName & "' target='_blank' class='mainboxlinks'>Vis </a>" & strName & ""
    %>
   
<%
if request("id") = "" then
sql = "SELECT * from screen"
end if
%>
<%
set rsscreen = Server.CreateObject("ADODB.recordset")
rsscreen.Open sql, database
%>
<%
While NOT rsscreen.EOF
%>
<a class="mainboxlinks" href="#" onClick="document.forms[0].screen.value="screen/<%= rsscreen("screen")%>;"> Vælg</a><br/>
<%
rsscreen.MoveNext
Wend
%>

<%
next

set fso = nothing
set fsoFolder = nothing
%>

</td>
</tr>
</table>
<% end if %>

<%
if request("action") = "skriv" then
%>


<%
set screen = Server.CreateObject("ADODB.recordset")
screen.Open "screen", database, 2, 2

screen.AddNew
    screen("screenname") = Request.Form("screenname")
    screen("screen") = Request.Form("screen")
screen.Update

response.redirect("wooadmin.asp")

end if
%>

<br/><br/>
<a href="wooadmin.asp" class="mainboxlinks">Tilbage</a>

Der er vel ingen grund til at tjekke databasen:
<!--#include file="style.asp" -->
<!--#include file="mindatabase.asp" -->
<%
if request("action") = "" then %>

<!-- her laver vi input boxe til hver tabel som vi skal lægge noget info ind i -->
<table cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="left" class="mainboxtext">
<form method="post" action="skrivscreen.asp?action=skriv">
Screenname: <input type="text" name="screenname"><br/>
Screenshot: <input type="text" name="screen"><br/>
<input type="Submit" value="Skriv" name="submit">
</form>
</td>
<td width="150"><font color="#8E6A3A">.</font></td>
<td class="mainboxtext">
<% response.write("<b>Tryk på vis for at se billede</b>")%><br/>
<%
sti = server.Mappath("screen")
sti2 = "screen/"'definere vi distinationen på filerne der skal uploades'

set fso = CreateObject("Scripting.FileSystemObject")'samler stien til filen'
set fsoFolder = fso.GetFolder(sti)

for each fFolder in fsoFolder.Files
    strName = LCase(fFolder.Name)
   
    response.write "<a href='" & sti2 & strName & "' target='_blank' class='mainboxlinks'>Vis </a>" & strName & ""
    Response.write "<a class=""mainboxlinks"" href=""#"" onClick=""document.forms[0].screen.value='"& sti2 & strName &"';"">Vælg</a>"
next

set fso = nothing
set fsoFolder = nothing
%>

</td>
</tr>
</table>
<% end if %>

<%
if request("action") = "skriv" then
%>


<%
set screen = Server.CreateObject("ADODB.recordset")
screen.Open "screen", database, 2, 2

screen.AddNew
    screen("screenname") = Request.Form("screenname")
    screen("screen") = Request.Form("screen")
screen.Update

response.redirect("wooadmin.asp")

end if
%>

<br/><br/>
<a href="wooadmin.asp" class="mainboxlinks">Tilbage</a>

databasen virker ingen prob  jeg har bare kaldt den noget andet her inde

Hvad er det overhoved du skal bruge databaseforbindelsen til??

mit database indhold, den skal jo vide hvor den skal trække det ud fra....

Nu er jeg ved at være tabt....

1. Du har en form med to felter og en submitknap.
2. Du læser så på harddisken, hvilke filer der ligger i en bestemt mappe, og udskriver alle de filer.
3. Du vil så overføre filnavnet til et af formelementerne.

I disse 3 punkter har du intet at bruge en database til. Det er først når du sender formen at du skal bruge databasen.

Mit ? er derfor stadig: "hvad skal du med en database forbindelse mens du udskriver filnavnene?". Skal du lave et eller andet tjek på om filen allerede er overført, for så giver det mening, men det er ikke i nærheden af hvad din kode gør nu.

nvm jeg har lige lavet en funktion der virker ;)  men tusindtak for hjælpen!

No prob.
.o) <-- One Eyed Jack

a