Page 11 - Folding Milestones Thread

Dev Shed Forums Sponsor:

#151

February 19th, 2006, 10:46 PM

medialint

Type Cast Exception

Join Date: Apr 2004

Location: West of Oakland, North of San Jose, South of Marin

Posts: 12,536

Folding Points: 237154 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 4 Months 3 Weeks 3 Days 5 h 26 m 36 sec
Reputation Power: 2710

I made it to the 25th spot of the DevFolders. And it looks like that's where I'll be staying for some time unless someone knocks me out of it. I've got a few laps to go before I can pass anyone else.

Look at this, 'tis close:

Code:

25  	 medialint   	 48374   	 283
26 	StrikeEagle 	48075 	626
27 	Axweildr 	48018 	304
28 	ChiefWigs1982 	48017 	292

Comments on this post

pumpkin head agrees: nicely done!

__________________
medialint.com

"Energy has the opportunity to change the climate if it's done right." - Sen. John Ensign, R-Nev. (quoted out of context)

#152

February 20th, 2006, 02:48 AM

Shadow Wizard

Contributing User

Join Date: Jun 2005

Location: Israel

Posts: 217

Folding Points: 340465 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 1 Day 11 h 55 m 33 sec
Reputation Power: 15

80th place in overall team rank, and also part of the 20 Top Producers
for some time now... the real reason I post here is because of
neat idea given by bubbablaze in aspfree - so here is the steps required
to have your own folding signature:

go to http://www.amitbb.co.il/Downloads/t...enerate_Sig.asp
put your folding user name (not your aspfree nick!) and submit.
you will see the required IMG code you need to put in the signature.

here is the code for Generate_Sig.asp, just in case:

Code:

<% Option Explicit %>
<%
Const BASE_URL="http://folding.extremeoverclocking.com/sigs/sigimage.php?un=%user&t=12912"

Sub CheckUsername
	Dim strUsername, objFSO, objFile
	Dim strFileName, strFilePath
	strUsername = Request("username")
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	strFileName = "sig_" & strUsername & ".asp"
	strFilePath = Server.MapPath(strFileName)
	If objFSO.FileExists(strFilePath) Then
		Response.Write("file already exists.<br />")
	Else  
		Set objFile = objFSO.CreateTextFile(strFilePath)
		objFile.WriteLine("<" & "%" & " Response.Redirect(""" & Replace(BASE_URL, "%user", strUsername) & """) " & "%" & ">")
		objFile.Close
		Set objFile=Nothing
		Response.Write("file created successfully!<br />")
	End If
	Set objFSO=Nothing
	Response.Write("[IMG]" & GetProtocol & "://" & GetServerName & GetCurrentDir & strFileName & "[/IMG]<br />")
End Sub

Function GetProtocol
	Dim strFullProt, arrTemp
	strFullProt = Request.ServerVariables("SERVER_PROTOCOL")
	arrTemp = Split(strFullProt, "/")
	GetProtocol = arrTemp(0)
	Erase arrTemp
End Function

Function GetServerName
	GetServerName = Request.ServerVariables("SERVER_NAME")
End Function

Function GetCurrentDir
	Dim strScriptName, arrTemp, x
	Dim result
	strScriptName = Request.ServerVariables("SCRIPT_NAME")
	arrTemp = Split(strScriptName, "/")
	result = "/"
	For x=0 To UBound(arrTemp)-1
		result = result & arrTemp(x) & "/"
	Next
	GetCurrentDir = result
End Function
%>
<html>
<head>
<title>DevFolding Signature Generator</title>
</head>
<body>
<% If Request("username")<>"" Then Call CheckUsername %>
<form>
Username: <input type="text" name="username" value="<%=Request("username")%>" /><button type="submit">Submit</button>
</form>
</body>
</html>

good luck, congrats everyone for the great folding and happy folding!

__________________

Last edited by Shadow Wizard : February 20th, 2006 at 02:52 AM.

#153

February 20th, 2006, 04:01 AM

Profftnt

They call me geek here........

Join Date: Nov 2004

Location: 118 Computer Geek, UK

Posts: 2,976

Folding Points: 32057 Folding Title: Starter Folder

Time spent in forums: 2 Weeks 22 h 49 m 24 sec
Reputation Power: 381

Broke 2k over the weekend!

__________________
Did this help? If so, please add to my Reputation by clicking the

at the top of this post

My Folding: -

#154

February 20th, 2006, 04:43 AM

Sepodati

Banned

Dev Shed God 19th Plane (14000 - 14499 posts)

Join Date: Dec 1999

Location: Afghanistan

Posts: 14,381

Folding Points: 70626 Folding Title: Intermediate Folder

Time spent in forums: 2 Months 4 Weeks 7 h 21 m 42 sec
Reputation Power: 1784

Quote:

Originally Posted by Shadow Wizard

here is the code for Generate_Sig.asp,

oh god, my eyes!! they burn! make it stop!

You posted ASP code on Dev Shed? The place is tainted now! I feel so dirty... I need to go wash my eyes with soap!

---John Holmes...

Comments on this post

Shadow Wizard agrees: lol I didn't know you have it in you

Last edited by Sepodati : February 20th, 2006 at 04:54 AM.

#155

February 20th, 2006, 05:27 AM

Shadow Wizard

Contributing User

Join Date: Jun 2005

Location: Israel

Posts: 217

Time spent in forums: 1 Day 11 h 55 m 33 sec
Reputation Power: 15

Quote:

Originally Posted by Sepodati

oh god, my eyes!! they burn! make it stop!

You posted ASP code on Dev Shed? The place is tainted now! I feel so dirty... I need to go wash my eyes with soap!

---John Holmes...

well, I come from the home of asp so it's only natural for me.

and feel free to convert it into PHP if you like so that it can be
hosted on linux servers as well.

#156

February 20th, 2006, 09:10 AM

xlordt

Only the strong survives!!.

Dev Shed God 1st Plane (5500 - 5999 posts)

Join Date: Feb 2003

Location: A World of wonders.

Posts: 5,547

Folding Points: 109314 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 1 Month 1 h 34 m 20 sec
Reputation Power: 378

Send a message via Google Talk to xlordt

hmm how does this icon thing works, i though that everytime you finish a job.. you get an extra icon no? i read that you have to wait for the system to update it... but i finished the job almost 2 days ago... just wondering.