output database og tekst felt spørgsmål

<%
str = "http://www.minside/upload/katalog.pdf" 'fra din database
arr = SPLIT( str, "/" )
Response.Write( arr( Ubound( arr ) ) )
%>

Bare for sjov...

<%
Dim strURL, intPlace
strURL = "http://www.minside/upload/katalog.pdf"
strURL = StrReverse(strURL)
intPlace = Instr(strURL,"/")-1
strURL = Left(strURL,intPlace)
strURL = StrReverse(strURL)

Response.Write strURL
%>

nu kan det godt værejeg spør dumt.. men hvordan får man det ind i et tekst felt?

<td>Fil Navn:</td>
<td><textarea name=info_txt rows=1 cols=120><%=rs("katalog")%></textarea></td>

<%
Function sepererlink(url)
  Dim strURL, intPlace
  strURL = url
  strURL = StrReverse(strURL)
  intPlace = Instr(strURL,"/")-1
  strURL = Left(strURL,intPlace)
  strURL = StrReverse(strURL)
  sepererlink = strURL
End Function
%>

<td>Fil Navn:</td>
<td><textarea name=info_txt rows=1 cols=120><%=sepererlink(rs("katalog"))%></textarea></td>

steen >> det er da en tung måde du har gjort det på :-/

<%
str = "http://www.minside/upload/katalog.pdf" 'fra din database
arr = SPLIT( str, "/" )
strFilNavn = arr( Ubound( arr ) )
%>
<td>Fil Navn:</td>
<td><textarea name=info_txt rows=1 cols=120><%= strFilNavn %></textarea></td>

tak men det eneste der kommer i feltet er a>

ved ikke om det er fordi jeg har dette i databasen
<a href="upload/katalog/30131 Rt4060.pdf"><img src="images/adobe.gif" border="0" ></a>

istedet for det jeg skrev oven over? (havde sku gelmt hva jeg skrev)

nute >> ja.. okay der er lidt om det ;)

den tager du nute!

gjorde nute så vidst ikke?

hmm .... hvad er det du skal have ud ? det der står i 'href', 'src' eller begge dele ?

/nute

ups ... sorry ... her er den så:
<%
strFilNavn= [fra din database]
intStart = InStr( strFilNavn, """" ) + 1
intStop  = InStr( intStart, strFilNavn, """" ) - intStart
strFilNavn= MID( strFilNavn, intStart, intStop )
%>
<td>Fil Navn:</td>
<td><textarea name=info_txt rows=1 cols=120><%= strFilNavn %></textarea></td

tak virker næsten.. men den skriver nu
upload/katalog/30131 Rt4060.pdf

er det muligt at få den til kun at skrive
30131 Rt4060.pdf ?

Samt.. hvis der intet er i databasen får man en fejl, kan man lave så der bare bliver skrevet "ingen fil" eller evt bare at man ikke får en fejl hvis databasen er tom?

fejlen når der intet er i databasen er:

Microsoft VBScript runtime error '800a005e'

Invalid use of Null

/product_admin.asp, line 109

gør denne linje:

strFilNavn= MID( strFilNavn, intStart, intStop )

om til disse 3:

strFilNavn= MID( strFilNavn, intStart, intStop )
arrPath = SPLIT( strFilNavn, "/" )
strFilNavn = arrPath( UBOUND( arrPath ) )

svaret til dette spm er jo allerede postet flere gange ;o]

/nute

Takker.. i know er bare en spade til lige præcis dette her.. sorry :)

du skal da ikke undskylde ... al begyndelse er svær ;o]

any way tak for hjælpen :)

anytime

:o]