<!-- Designed and maintained by Henrik Larsson -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">

<HTML>
<HEAD>
	<TITLE>www.kent.nu</TITLE>
	<!--#include virtual="/include/browschk.inc"-->
	<!--#include virtual="/include/browserkoll.inc"-->
	<!--#include virtual="/include/select_css.inc"-->
	<link rel="stylesheet" type="text/css" href="/include/<%=Session("CSSFILE")%>">
</HEAD>

<%=Session("body")%>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr><td><font class=loptext>
<!-- CONTENT -->
<font class=rubrik-stor>
Användarbilder
</font>
<br><br>
Hur får man in sin egen bild i gästboken?
				
<br><br>

<a href="/gb_bild.asp">Läs mer här!</a>

<br><br>
				
<%	
	mapp = Request.ServerVariables("PATH_INFO") 
	mapp = replace(mapp, "index.asp", "")
	host = Request.ServerVariables("SERVER_NAME")


	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(Server.MapPath(mapp))
	Set objFile = objFolder.Files

	For Each objFile in objFolder.Files
%>
		<a href="http://<%=host%><%=mapp%><%=objFile.name%>" target="_blank">http://<%=host%><%=mapp%><%=objFile.name%></a><br>
<%
	Next

%>

<br><br><br>

<!-- // CONTENT -->
</font>
</td></tr>
</table>

</BODY>
</HTML>