quote:

---

I recently found a cool plugin and created a script for my forum members

---

quote:

---

Originally posted by MarkJH

quote:

---

I recently found a cool plugin and created a script for my forum members

---

Looks great! Are you willing to share that script with us, Dayve?

---

<%
dim logFile, logSys, lotTxt, strName, strSong

logFile = "now_playing.txt"

strName = trim(Request("Username"))
strSong = trim(Request("Artist1"))

 if trim(Request("Title1")) <> "" then
  strSong = strSong & " - " & trim(Request("Title1"))
 end if

if strName <> "" and strSong <> "" then
 set logSys = CreateObject("Scripting.FileSystemObject")
  if not logSys.FileExists(Server.MapPath("\upload\" & strName &"\" & logFile)) Then
   logSys.CreateTextFile(Server.MapPath("\upload\" & strName &"\" & logFile)), True
  end If
end if

set logTxt = logSys.OpenTextFile((Server.MapPath("\upload\" & strName &"\" & logFile)), 2, True)
logTxt.WriteLine strSong
logTxt.Close

set logTxt = Nothing
set logSys = nothing
%> 

<%@ Page aspcompat=true Debug="True" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.Drawing.Text" %>
<%@ Import Namespace="System.Math" %>
<%

Response.CharSet="utf-8"

'### Declare Variables
Dim objBMP        As System.Drawing.Bitmap
Dim objGraphics   As System.Drawing.Graphics
Dim objFont       As System.Drawing.Font
Dim strOutputText As String
Dim HTMLGet, strText, strName, intWidth, intHeight
Dim drawFormat As New StringFormat()

strName = (Request.QueryString(0))

HTMLGet = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") 
HTMLGet.Open("GET", "http://www.burningsoulsforum.com/upload/" & strName & "/now_playing.txt", false)
HTMLGet.Send 
strText = HTMLGet.responseText
HTMLGet = Nothing

	strOutputText = strName & " is listening to: " & vbCrLf
	strOutputText =  strOutputText & (strText)
	strOutputText =  strOutputText & "http://www.burningsoulsforum.com"

'### Set up a bunch of formatting variables
Dim intFontSize As Integer = 8			'### Font Size
Dim objFontColour As Object = Brushes.White	'### Font Colour
Dim objBgColour As Object = Color.Black		'### Background Colour
Dim objEdgeColour As Color = Color.White	'### Border Colour
Dim intBold As Integer = 0			'### 1 = Bold, 0 = Regular
drawFormat.Alignment = StringAlignment.Center	'### Center / Near (Left) / Far (Right)

'### Create new dummy image and graphics object
intWidth = 1
intHeight = 1
objBMP = New Bitmap(intWidth, CInt(intHeight))
objGraphics = System.Drawing.Graphics.FromImage(objBMP)

'### Configure font to use for text
If intBold = 1 Then
	objFont = New Font("Tahoma", intFontSize, FontStyle.Bold)
Else
	objFont = New Font("Tahoma", intFontSize, FontStyle.Regular)
End If

'### Size up the text so that we can create the real image big enough
Dim sizTextSize
sizTextSize = objGraphics.MeasureString(strOutputText, objFont)

'### Get rid of the dummy objects
objBMP.Dispose()
objGraphics.Dispose()
objBMP = Nothing
objGraphics = Nothing

'### Create new image - bitmap
intWidth = CInt(sizTextSize.Width + 6)
intHeight = CInt(sizTextSize.Height + 6)
objBMP = New Bitmap(CInt(intWidth), CInt(intHeight))

'### Create a graphics object to work with from the BMP
objGraphics = System.Drawing.Graphics.FromImage(objBMP)

'### Fill the image with background color and draw 1px border
objGraphics.Clear(objBgColour)
Dim edgePen As New Pen(objEdgeColour, 1)
objGraphics.DrawRectangle(edgePen, 0, 0, intWidth - 1, intHeight - 1)

'### Set anti-aliasing for text to make it better looking
'objGraphics.TextRenderingHint = TextRenderingHint.AntiAlias

'### Write out the text
Dim intHorizX As Integer
Select Case drawFormat.Alignment
	Case StringAlignment.Center
		intHorizX = CInt(intWidth / 2)
	Case StringAlignment.Far
		intHorizX = intWidth - 3
	Case StringAlignment.Near
		intHorizX = 3
End Select

objGraphics.DrawString(strOutputText, objFont, objFontColour, intHorizX, 3, drawFormat)

'### Set the content type and return the image
Response.ContentType = "image/GIF"
objBMP.Save(Response.OutputStream, ImageFormat.Gif)

'### Kill our objects
objFont.Dispose()
objGraphics.Dispose()
objBMP.Dispose()
%>