<%
Sub FromSL()
if Not Left(Request.ServerVariables ("HTTP_USER_AGENT"),15) = "Second-Life-LSL" Then
response.Status="401 Unauthorized"
response.Write(response.Status)
response.End
End If
End Sub
Function Quoted( txt)
Quoted = Chr(34)&txt&Chr(34)
End Function
Function txright (text)
txright = ""&text&""
End Function
Function SLimage( uuid)
dest = Quoted("http://texture-service.agni.lindenlab.com/"& uuid & "/256x192.jpg/")
img = "
"
SLimage = "" & img & ""
End Function
Function SLuser (uuid,name)
If name = "" Then
SLuser = ""& uuid &""
Else
SLuser = ""& name &""
End If
End Function
Function DGuser (uuid,name)
If name = uuid Then
Path = Server.MapPath( ".\fichiers\DGusers\"& uuid &"\phone.txt")
If FileSys.FileExists(Path) Then
Set xFile = FileSys.OpenTextFile(Path)
If xFile.AtEndOfStream = false Then
items = Split(xFile.ReadLine,"|")
If Not Ubound(items)=0 Then name = items(1)
End If
Else 'lets try demo'
Path = Server.MapPath( ".\fichiers\DGdemo\"& uuid &"\demo.txt")
If FileSys.FileExists(Path) Then
name = uuid &" (demo)"
End If
End If
End If
If uuid = "demo" Then
DGuser = "default record"
Else
DGuser = ""& name &""
End If
End Function
Function pluspetit( a, b )
If a < b Then
pluspetit = True
Else
plupetit = False
End If
End Function
Function plusgrand( a, b )
If a > b Then
plusgrand = True
Else
plusgrand = False
End If
End Function
%>