Page 9 - Folding At Home - fold to cure! (and get cool blue flowers)

ASP Free Forums Sponsor:

#121

March 24th, 2006, 04:45 PM

mehere

Senior Sarcasm Wizardess

ASP Free God 16th Plane (12500 - 12999 posts)

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Folding Points: 10976 Folding Title: Novice Folder

Time spent in forums: 4 Months 4 Weeks 15 h 21 m 57 sec
Reputation Power: 1762

oh i can do it (as i've done it on two other laptops), but this one is still under warranty so why should i pay for the screen and do it ...

__________________
Come JOIN the party!!!

Quote of the Month:
Retirement: Because you've given so much of yourself to the company that you don't have anything left we can use.

Questions to Ponder:
What do you do when you see an endangered animal eating an endangered plant?

iif([sarcasm]=true,iif([you have to ask]=true,"didn't work","ha ha ha"),"not sarcasm")
copyright© 2008 sbenj69

#122

March 24th, 2006, 04:52 PM

pws1970

Contributing User

Join Date: Aug 2005

Posts: 3,250

Folding Points: 20017 Folding Title: Starter Folder

Time spent in forums: 4 Weeks 1 Day 4 h 5 m 50 sec
Reputation Power: 363

Fair play to you mehere, I guess I'm just not that way inclined.

__________________

SEO Company | SEO Podcasts

Subscribe to the North South Media SEO Blog

#123

March 24th, 2006, 04:55 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,867

Time spent in forums: 4 Months 4 Weeks 15 h 21 m 57 sec
Reputation Power: 1762

oh i've been taking things apart and putting them back together since i was a child, used to drive my father nuts ... because there were sometimes i couldn't get it to work properly ... thank god, he was an electrician ... it helped ...

#124

March 24th, 2006, 06:55 PM

jmurrayhead

Moderator

ASP Free God 17th Plane (13000 - 13499 posts)

Join Date: Feb 2004

Location: Reston, VA, USA

Posts: 13,091

Folding Points: 87702 Folding Title: Advanced Folder

Time spent in forums: 3 Months 1 Week 10 h 23 m 53 sec
Reputation Power: 1580

Quote:

Originally Posted by mehere

oh i can do it (as i've done it on two other laptops), but this one is still under warranty so why should i pay for the screen and do it ...

oh of course, take advantage of that whilst you can

I'm just saying it would save you the time

__________________
jmurrayhead

Did I help you out? Make me popular by clicking the

icon!

New Members:Proper way to post a question

Powered by ASP.Net

#125

April 22nd, 2006, 02:34 PM

pws1970

Contributing User

Join Date: Aug 2005

Posts: 3,250

Time spent in forums: 4 Weeks 1 Day 4 h 5 m 50 sec
Reputation Power: 363

Quote:

Originally Posted by Shadow Wizard

done.
go here to create your signature file:
http://www.amitbb.co.il/Downloads/t...enerate_Sig.asp
just 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>

Shadow, I know this might sound a bit cheeky, but is their anyway you could modify your code so that I could get my folding sig to look like this: here.

#126

April 23rd, 2006, 03:02 AM

Shadow Wizard

Moderator From Beyond

ASP Free God 46th Plane (27500 - 27999 posts)

Join Date: Sep 2004

Location: Israel

Posts: 27,744

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

Time spent in forums: 3 Months 2 Weeks 5 h 42 m 45 sec
Reputation Power: 1914

lol I wasn't aware of those options!!

I'll do that soon, remind me within couple of days if I forget..

__________________

Visit The Windows Scripting Guru

#127

April 24th, 2006, 03:20 AM

Shadow Wizard

Moderator From Beyond

Join Date: Sep 2004

Location: Israel

Posts: 27,744

Time spent in forums: 3 Months 2 Weeks 5 h 42 m 45 sec
Reputation Power: 1914

done! http://www.amitbb.co.il/Downloads/t...enerate_Sig.asp

new code:

Code:

<% Option Explicit %>
<%
Const BASE_URL="http://folding.extremeoverclocking.com/sigs/sigimage.php?un=%user&c1=%1&c2=%2&c3=%3&c4=%4&c5=%5&t=12912"

Sub CheckUsername
	Dim strUsername, objFSO, objFile
	Dim strFileName, strFilePath
	Dim strColor1, strColor2, strColor3
	Dim strColor4, strColor5
	strUsername = Request("username")
	strColor1 = Request("c1")
	strColor2 = Request("c2")
	strColor3 = Request("c3")
	strColor4 = Request("c4")
	strColor5 = Request("c5")
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	strFileName = "sig_" & strUsername & ".asp"
	strFilePath = Server.MapPath(strFileName)
	Set objFile = objFSO.CreateTextFile(strFilePath)
	objFile.WriteLine("<" & "%" & " Response.Redirect(""" &_
		MultiReplace(BASE_URL, Array("%user", "%1", "%2", "%3", "%4", "%5"), _
		Array(strUsername, strColor1, strColor2, strColor3, strColor4, strColor5)) & """) " & "%" & ">")
	objFile.Close
	Set objFile=Nothing
	Response.Write("file created successfully!<br />")
	Set objFSO=Nothing
	Response.Write("[IMG]" & GetProtocol & "://" & GetServerName & GetCurrentDir & strFileName & "[/IMG]<br />")
End Sub

Function MultiReplace(strOriginal, arr1, arr2)
	Dim x, result
	result = strOriginal
	For x=0 To UBound(arr1)
		result = Replace(result, arr1(x), arr2(x))
	Next
	MultiReplace = result
End Function

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=1 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")%>" /> (note: NOT user id)<br />
color1: <input type="text" name="c1" size="6" value="<%=Request("c1")%>" /> (color of the captions)<br />
color2: <input type="text" name="c2" size="6" value="<%=Request("c2")%>" /> (background color of the bottom part)<br />
color3: <input type="text" name="c3" size="6" value="<%=Request("c3")%>" /> (background color of the top part)<br />
color4: <input type="text" name="c4" size="6" value="<%=Request("c4")%>" /> (color of the borders)<br />
color5: <input type="text" name="c5" size="6" value="<%=Request("c5")%>" /> (color of the texts)<br />
<button type="submit">Submit</button>
</form>
</body>
</html>

#128

April 24th, 2006, 04:00 AM

RadioactiveFrog

Senior Glowing Wizard

ASP Free God 7th Plane (8000 - 8499 posts)

Join Date: May 2005

Location: Sussex

Posts: 8,223

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

Time spent in forums: 3 Weeks 4 Days 3 h 46 m 30 sec
Reputation Power: 326

Send a message via MSN to RadioactiveFrog

Quote:

Originally Posted by Shadow Wizard

done! http://www.amitbb.co.il/Downloads/t...enerate_Sig.asp

new code:

Code:

<% Option Explicit %>
<%
Const BASE_URL="http://folding.extremeoverclocking.com/sigs/sigimage.php?un=%user&c1=%1&c2=%2&c3=%3&c4=%4&c5=%5&t=12912"

Sub CheckUsername
	Dim strUsername, objFSO, objFile
	Dim strFileName, strFilePath
	Dim strColor1, strColor2, strColor3
	Dim strColor4, strColor5
	strUsername = Request("username")
	strColor1 = Request("c1")
	strColor2 = Request("c2")
	strColor3 = Request("c3")
	strColor4 = Request("c4")
	strColor5 = Request("c5")
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	strFileName = "sig_" & strUsername & ".asp"
	strFilePath = Server.MapPath(strFileName)
	Set objFile = objFSO.CreateTextFile(strFilePath)
	objFile.WriteLine("<" & "%" & " Response.Redirect(""" &_
		MultiReplace(BASE_URL, Array("%user", "%1", "%2", "%3", "%4", "%5"), _
		Array(strUsername, strColor1, strColor2, strColor3, strColor4, strColor5)) & """) " & "%" & ">")
	objFile.Close
	Set objFile=Nothing
	Response.Write("file created successfully!<br />")
	Set objFSO=Nothing
	Response.Write("[IMG]" & GetProtocol & "://" & GetServerName & GetCurrentDir & strFileName & "[/IMG]<br />")
End Sub

Function MultiReplace(strOriginal, arr1, arr2)
	Dim x, result
	result = strOriginal
	For x=0 To UBound(arr1)
		result = Replace(result, arr1(x), arr2(x))
	Next
	MultiReplace = result
End Function

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=1 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")%>" /> (note: NOT user id)<br />
color1: <input type="text" name="c1" size="6" value="<%=Request("c1")%>" /> (color of the captions)<br />
color2: <input type="text" name="c2" size="6" value="<%=Request("c2")%>" /> (background color of the bottom part)<br />
color3: <input type="text" name="c3" size="6" value="<%=Request("c3")%>" /> (background color of the top part)<br />
color4: <input type="text" name="c4" size="6" value="<%=Request("c4")%>" /> (color of the borders)<br />
color5: <input type="text" name="c5" size="6" value="<%=Request("c5")%>" /> (color of the texts)<br />
<button type="submit">Submit</button>
</form>
</body>
</html>

i was playing with the colours and now it says user not found

__________________

#129

April 24th, 2006, 04:33 AM

Shadow Wizard

Moderator From Beyond

Join Date: Sep 2004

Location: Israel

Posts: 27,744

Time spent in forums: 3 Months 2 Weeks 5 h 42 m 45 sec
Reputation Power: 1914

Quote:

Originally Posted by RadioactiveFrog

i was playing with the colours and now it says user not found

you have to remove the "#" characters from the colors.. having them in the URL
ruins the image.
I will add validation to the generator when I'll have some time, until then be careful
to put only colors like FFFFFF, 000000, FF0000 etc, meaning six hex characters.

Comments on this post

pws1970 agrees: Brilliant cheers Shadow,

mehere agrees: very cool shadow ... thanks much