| Author |
 Topic  |
|
revenger
Junior Member
United Kingdom
132 Posts |
 Posted - 15 December 2003 : 11:20:14
|
OK, I created a new file, called it about.asp.html, then pasted that text into it. I provided a link on my forum to the file, but it shows nothing.
Oh and I use manqso.com as my forum host - will that affect anything?? |
 |
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 15 December 2003 : 16:57:27
|
| You can't make it .html, rename it to about.asp If that doesn't work, please supply the URL. If Snitz works on your host, then this page will too. |
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
Posted - 15 December 2003 : 17:26:43
|
| No it still doesent work properly. I have put a url directly to the page on my forum - but it just comes up as a blank screen. |
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 15 December 2003 : 18:01:28
|
| So what is line 52 ? .. and the 10-20 lines above it. |
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
Posted - 15 December 2003 : 18:43:28
|
Here I'll paste the whole about.asp file
I can't fathom out what is wrong.
<!--#include file="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#include file="inc_func_common.asp"-->
<!--#include file="inc_Header.asp"-->
<!--#INCLUDE FILE="inc_profile.asp" -->
<%
'strSQL = "SELECT MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL > 1 ORDER BY M_LEVEL , " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL" ', " & strMemberTablePrefix & "MEMBERS.M_AVATAR_WIDTH, " & strMemberTablePrefix & "MEMBERS.M_AVATAR_HEIGHT"
'set rsStaff = my_conn.execute( strSQL)
'strMyAvatar = M_AVATAR_URL
'strMyAvatarW = 100 'M_AVATAR_WIDTH
'strMyAvatarH = 100 'M_AVATAR_HEIGHT
'if not rsStaff.eof then
%>
<table border="0" width="80%" cellspacing="0" cellpadding="0" align="center" bgcolor='<%= strForumCellolor %>'>
<tr>
<td align='center'>
<table cellspacing="1" cellpadding="2" border="0" width="80%">
<tr>
<td align='center' valign="top" ><br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Welcome to the wretched gallery, listed below are a few details about the<br>Admins, Moderators and VIPs</font><br><br></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table cellspacing="1" cellpadding="2" border="0" width="100%">
<tr>
<td valign="middle" align="center" background="<%=strHeadCellColor %>" cellspacing="1" cellpadding="2" border="0" valign="top" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize+1 %>" color="<% =strHeadFontColor %>">Forum Administrators</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
strSQL = "SELECT MEMBER_ID,M_AVATAR_URL,M_NAME,M_HOMEPAGE,M_FIRSTNAME,M_LASTNAME,M_AGE,M_SEX,M_HIDE_EMAIL,M_EMAIL,M_POSTS,M_COUNTRY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL =3 order by M_POSTS DESC"
set rsStaff2 = my_conn.execute( strSQL)
if not rsStaff2.EOF then call DisplayWretched %>
</td>
</tr>
<tr>
<td>
<table cellspacing="1" cellpadding="2" border="0" width="100%">
<tr>
<td valign="middle" align="center" background="<%=strHeadCellColor %>" cellspacing="1" cellpadding="10" border="0" valign="top" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize+1 %>" color="<% =strHeadFontColor %>"><br>Forum Moderators</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
strSQL = "SELECT MEMBER_ID,M_AVATAR_URL,M_NAME,M_HOMEPAGE,M_FIRSTNAME,M_LASTNAME,M_AGE,M_SEX,M_HIDE_EMAIL,M_EMAIL,M_POSTS,M_COUNTRY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL =2 order by M_POSTS DESC"
set rsStaff2 = my_conn.execute(strSQL)
if not rsStaff2.EOF then call DisplayWretched%>
</td>
</tr>
<tr>
<td>
<table cellspacing="1" cellpadding="2" border="0" width="100%">
<tr>
<td valign="middle" align="center" background="<%=strHeadCellColor %>" cellspacing="1" cellpadding="10" border="0" valign="top" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize+1 %>" color="<% =strHeadFontColor %>"><br>Forum VIP's</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
strSQL = "SELECT MEMBER_ID,M_AVATAR_URL,M_NAME,M_HOMEPAGE,M_FIRSTNAME,M_LASTNAME,M_AGE,M_SEX,M_HIDE_EMAIL,M_EMAIL,M_POSTS,M_COUNTRY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL <> 2 and M_LEVEL <> 3 and M_POSTS > 1999 order by M_POSTS DESC"
set rsStaff2 = my_conn.execute(strSQL)
if not rsStaff2.EOF then call DisplayWretched %>
</td>
</tr>
</table>
<br><div align="center"><a href="javascript:history.go(-1)"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Back to Forum</font></a></div><br><br>
<%
'end if
'rsStaff.close
'set rsStaff = nothing
WriteFooter
Sub DisplayWretched
rsStaff2.MoveFirst
Response.write("<table width='100%' cellspacing='1' ><tr>")
do until rsStaff2.Eof
Response.write "<td height='20' width='50%' valign='top'>"
Call DrawTable
Response.write "</TD>"
if not rsStaff2.eof then
rsStaff2.MoveNext
Response.write "<td height='20' width='50%' valign='top'>"
if not rsStaff2.Eof then Call DrawTable
Response.write "</td>"
Response.write "</tr>"
else
response.write("<td>")
end if
if not rsStaff2.Eof then rsStaff2.MoveNext
Response.write("</td></tr>")
if rsStaff2.Eof then
response.write "</table>"
exit sub
end if
loop
Response.write("</table>")
rsStaff2.close
End Sub
Sub DrawTable %>
<table bgcolor='<%=StrTableBorderColor %>' width='100%' cellspacing=1' cellpadding='0' border='0'><tr><td bgcolor='<%=StrForumCellColor %>' valign="top">
<table width='100%' cellspacing='0' cellpadding='2' border='0'>
<tr bgcolor="<%=StrCategoryCellColor %>">
<td colspan='3' align='left' class='redline'><font color="<%=StrCategoryFontColor %>"> <strong><%= rsStaff2("M_NAME") %></strong></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align="center" valign="top" rowspan="9" width='10%'>
<table cellpadding="6"><tr><td align="center" height="140" valign="top">
<% if Trim(rsStaff2("M_AVATAR_URL")) <> "" and lcase(trim(rsStaff2("M_AVATAR_URL"))) <> "http://" and Trim(lcase(rsStaff2("M_AVATAR_URL"))) <> "https://" then %>
<img src="<%= rsStaff2("M_AVATAR_URL") %>" <% Call GetPicFileInfo(rsStaff2("M_AVATAR_URL"), 0, 0, 0) %>>
<% else
Response.Write getCurrentIcon(strIconPhotoNone,"No Avatar Available","hspace=""0"" vspace=""0""") & "" & vbCrLf
end if %>
</td></tr></table>
</td>
</tr><tr bgcolor='<%= strForumCellcolor %>'>
<td width='10%' align='right'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>Name: </strong></font></td>
<td width='50%' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= rsStaff2("M_FIRSTNAME") %> <%= rsStaff2("M_LASTNAME") %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong></strong></font></td>
<td></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>Country: </strong></font></td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= rsStaff2("M_COUNTRY") %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>Age: </strong></font></td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= rsStaff2("M_AGE") %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>No. Posts: </strong></font></td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= formatnumber(rsStaff2("M_POSTS"),0) %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='left' colspan='3'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =StrForumLinkColor %>">
<b>Homepage:</b> <% if Trim(rsStaff2("M_HOMEPAGE")) <> "" and lcase(trim(rsStaff2("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rsStaff2("M_HOMEPAGE"))) <> "https://" then %>
<a href="<% =rsStaff2("M_HOMEPAGE") %>" target="_blank">
<%
if len(rsStaff2("M_HOMEPAGE")) > 40 then
response.write left(rsStaff2("M_HOMEPAGE"),18) & "..." & right(rsStaff2("M_HOMEPAGE"),18)
else
response.write rsStaff2("M_HOMEPAGE")
end if%></a>
<% else %>
No homepage specified...
<% end if
nowPlaying = trim(winamp(rsStaff2("M_NAME")))
if nowPlaying <> "" then %>
<p><b>Listening To:</b> <%=winamp(rsStaff2("M_NAME"))%>
<% end if %>
</font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td colspan="3" align='right'><br><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>"><a href="pop_profile.asp?mode=display&id=<%= rsStaff2("MEMBER_ID") %>">
<% if rsStaff2("M_SEX") = "Male" then
response.write ("<img src=""images/icon_profile_Male.gif"" border=""0"" alt=""View Full Profile"" align=""absmiddle"">")
elseif rsStaff2("M_SEX") = "Female" then
response.write ("<img src=""images/icon_profile_Female.gif"" border=""0"" alt=""View Full Profile"" align=""absmiddle"">")
else
response.write ("<img src=""images/icon_profile_unknown.gif"" border=""0"" alt=""View Full Profile"" align=""absmiddle"">")
end if %> View Full Profile</a> </font></td>
</tr>
</table></td></tr></table>
<%End Sub
Sub GetPicFileInfo( i_sFilename, o_PicType, o_nWidth, o_nHeight )
i_sFilename = replace(i_sFilename, "/", "\", 1, -1, 1)
o_PicType = ""
o_nWidth = 0
o_nHeight = 0
Dim fso, ts
Dim GIF_MARKER, JPG_MARKER
GIF_MARKER = "GIF8"
JPG_MARKER = Chr(&HFF) & Chr(&HD8) & Chr(&HFF) & Chr(&HE0)
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set ts = fso.OpenTextFile(Server.MapPath("/forum/" & i_sFilename))
If Err.Number <> 0 Then
Err.Clear
Set ts = fso.OpenTextFile("/forum/images/halo.gif")
End if
Select Case ts.Read(4)
Case GIF_MARKER
o_PicType = "GIF"
ts.Skip(2)
If Err.Number <> 0 Then
Exit Sub
End If
o_nWidth = Asc(ts.Read(1)) + ( Asc(ts.Read(1))* 256 )
o_nHeight = Asc(ts.Read(1)) + ( Asc(ts.Read(1))* 256 )
Case JPG_MARKER
o_PicType = "JPG"
Dim byteVal, bDone
bDone = False
byteVal = Asc(ts.Read(1))
Do While Not ts.AtEndOfStream And byteVal <> &HD8 And Not bDone
'look for the next marker (xFF)
Do While Not ts.AtEndOfStream And byteVal <> &HFF
byteVal = Asc(ts.Read(1))
Loop
'Get past any repeated xFF markers
Do While Not ts.AtEndOfStream And byteVal = &HFF
byteVal = Asc(ts.Read(1))
Loop
'Check out the marker
'if this is the width/height section then read the values
If ((byteVal >= &HC0) And (byteVal <= &HC3)) Then
ts.Skip(3)
If Err.Number <> 0 Then
Exit Sub
End If
If Not ts.EOF Then
o_nHeight = (Asc(ts.Read(1)) * 256) + Asc(ts.Read(1))
o_nWidth = (Asc(ts.Read(1)) * 256) + Asc(ts.Read(1))
bDone = True
End If
Else
'this is a comment or other stuff we are not interested in.
'we must read the size and then skip over this section
Dim nSectionLength
nSectionLength = (Asc(ts.Read(1)) * 256) + Asc(ts.Read(1))
'NOTE: we subtract two since from the size since we already
'are past the length bytes which are included in the size
ts.Skip(nSectionLength - 2)
byteVal = Asc(ts.Read(1))
If Err.Number <> 0 Then
Exit Sub
End If
End If
Loop
End Select
maxwidth = 100
maxheight = 125
if o_nWidth > maxwidth or o_nHeight > maxheight then
if o_nWidth > maxwidth then
o_nHeight = cInt(o_nHeight * maxwidth/o_nWidth)
o_nWidth = maxwidth
if (o_nHeight > maxheight) then
o_nWidth = cInt(o_nWidth * maxheight/o_nHeight)
o_nHeight = maxheight
end if
elseif o_nHeight > maxheight then
o_nWidth = cInt(o_nWidth * maxheight/o_nHeight)
o_nHeight = maxheight
if (o_nWidth > maxwidth) then
o_nHeight = cInt(o_nHeight * maxwidth/o_nWidth)
o_nWidth = maxwidth
end if
end if
end if
o_nText = " X "
response.write " width=""" & o_nWidth & """ height=""" & o_nHeight & """"
response.write " title=""" & o_nWidth & o_nText & o_nHeight & """"
Set ts = Nothing
Set fso = Nothing
End Sub
%>
|
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 15 December 2003 : 19:03:10
|
I took your code and dropped it on my site (http://www.v8central.com/snitz3403/about.asp) it worked fine, but I removed the bit about WinAmp and changed some of the hard-coded paths.
The about page assumes that the Avatar mod is installed, and I don't think you have 
|
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
Posted - 16 December 2003 : 03:29:06
|
| So we need the Avatar mod?? |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 16 December 2003 : 04:08:19
|
| Yes, or make changes to the Rabble code. |
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
Posted - 16 December 2003 : 10:41:27
|
Ah, so what would I take out of there??
|
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 16 December 2003 : 16:10:51
|
All the code relating to avatars.... try this :
<!--#include file="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#include file="inc_func_common.asp"-->
<!--#include file="inc_Header.asp"-->
<!--#INCLUDE FILE="inc_profile.asp" -->
<%
'strSQL = "SELECT MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL > 1 ORDER BY M_LEVEL"
'set rsStaff = my_conn.execute( strSQL)
'if not rsStaff.eof then
%>
<table border="0" width="80%" cellspacing="0" cellpadding="0" align="center" bgcolor='<%= strForumCellolor %>'>
<tr>
<td align='center'>
<table cellspacing="1" cellpadding="2" border="0" width="80%">
<tr>
<td align='center' valign="top" ><br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Welcome to the wretched gallery, listed below are a few details about the<br>Admins, Moderators and VIPs</font><br><br></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table cellspacing="1" cellpadding="2" border="0" width="100%">
<tr>
<td valign="middle" align="center" background="<%=strHeadCellColor %>" cellspacing="1" cellpadding="2" border="0" valign="top" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize+1 %>" color="<% =strHeadFontColor %>">Forum Administrators</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
strSQL = "SELECT MEMBER_ID,M_NAME,M_HOMEPAGE,M_FIRSTNAME,M_LASTNAME,M_AGE,M_SEX,M_HIDE_EMAIL,M_EMAIL,M_POSTS,M_COUNTRY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL =3 order by M_POSTS DESC"
set rsStaff2 = my_conn.execute( strSQL)
if not rsStaff2.EOF then call DisplayWretched %>
</td>
</tr>
<tr>
<td>
<table cellspacing="1" cellpadding="2" border="0" width="100%">
<tr>
<td valign="middle" align="center" background="<%=strHeadCellColor %>" cellspacing="1" cellpadding="10" border="0" valign="top" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize+1 %>" color="<% =strHeadFontColor %>"><br>Forum Moderators</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
strSQL = "SELECT MEMBER_ID,M_NAME,M_HOMEPAGE,M_FIRSTNAME,M_LASTNAME,M_AGE,M_SEX,M_HIDE_EMAIL,M_EMAIL,M_POSTS,M_COUNTRY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL =2 order by M_POSTS DESC"
set rsStaff2 = my_conn.execute(strSQL)
if not rsStaff2.EOF then call DisplayWretched%>
</td>
</tr>
<tr>
<td>
<table cellspacing="1" cellpadding="2" border="0" width="100%">
<tr>
<td valign="middle" align="center" background="<%=strHeadCellColor %>" cellspacing="1" cellpadding="10" border="0" valign="top" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize+1 %>" color="<% =strHeadFontColor %>"><br>Forum VIP's</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
strSQL = "SELECT MEMBER_ID,M_NAME,M_HOMEPAGE,M_FIRSTNAME,M_LASTNAME,M_AGE,M_SEX,M_HIDE_EMAIL,M_EMAIL,M_POSTS,M_COUNTRY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_LEVEL <> 2 and M_LEVEL <> 3 and M_POSTS > 1999 order by M_POSTS DESC"
set rsStaff2 = my_conn.execute(strSQL)
if not rsStaff2.EOF then call DisplayWretched %>
</td>
</tr>
</table>
<br><div align="center"><a href="javascript:history.go(-1)"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Back to Forum</font></a></div><br><br>
<%
'end if
'rsStaff.close
'set rsStaff = nothing
WriteFooter
Sub DisplayWretched
rsStaff2.MoveFirst
Response.write("<table width='100%' cellspacing='1' ><tr>")
do until rsStaff2.Eof
Response.write "<td height='20' width='50%' valign='top'>"
Call DrawTable
Response.write "</TD>"
if not rsStaff2.eof then
rsStaff2.MoveNext
Response.write "<td height='20' width='50%' valign='top'>"
if not rsStaff2.Eof then Call DrawTable
Response.write "</td>"
Response.write "</tr>"
else
response.write("<td>")
end if
if not rsStaff2.Eof then rsStaff2.MoveNext
Response.write("</td></tr>")
if rsStaff2.Eof then
response.write "</table>"
exit sub
end if
loop
Response.write("</table>")
rsStaff2.close
End Sub
Sub DrawTable %>
<table bgcolor='<%=StrTableBorderColor %>' width='100%' cellspacing=1' cellpadding='0' border='0'><tr><td bgcolor='<%=StrForumCellColor %>' valign="top">
<table width='100%' cellspacing='0' cellpadding='2' border='0'>
<tr bgcolor="<%=StrCategoryCellColor %>">
<td colspan='3' align='left' class='redline'><font color="<%=StrCategoryFontColor %>"> <strong><%= rsStaff2("M_NAME") %></strong></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td width='10%' align='right'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>Name: </strong></font></td>
<td width='50%' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= rsStaff2("M_FIRSTNAME") %> <%= rsStaff2("M_LASTNAME") %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong></strong></font></td>
<td></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>Country: </strong></font></td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= rsStaff2("M_COUNTRY") %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>Age: </strong></font></td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= rsStaff2("M_AGE") %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='right' >
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<strong>No. Posts: </strong></font></td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<%= formatnumber(rsStaff2("M_POSTS"),0) %></font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td align='left' colspan='3'>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =StrForumLinkColor %>">
<b>Homepage:</b> <% if Trim(rsStaff2("M_HOMEPAGE")) <> "" and lcase(trim(rsStaff2("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rsStaff2("M_HOMEPAGE"))) <> "https://" then %>
<a href="<% =rsStaff2("M_HOMEPAGE") %>" target="_blank">
<%
if len(rsStaff2("M_HOMEPAGE")) > 40 then
response.write left(rsStaff2("M_HOMEPAGE"),18) & "..." & right(rsStaff2("M_HOMEPAGE"),18)
else
response.write rsStaff2("M_HOMEPAGE")
end if%></a>
<% else %>
No homepage specified...
<% end if
%>
</font></td>
</tr>
<tr bgcolor='<%= strForumCellcolor %>'>
<td colspan="3" align='right'><br><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>"><a href="pop_profile.asp?mode=display&id=<%= rsStaff2("MEMBER_ID") %>">
<% if rsStaff2("M_SEX") = "Male" then
response.write ("<img src=""icon_profile_Male.gif"" border=""0"" alt=""View Full Profile"" align=""absmiddle"">")
elseif rsStaff2("M_SEX") = "Female" then
response.write ("<img src=""icon_profile_Female.gif"" border=""0"" alt=""View Full Profile"" align=""absmiddle"">")
else
response.write ("<img src=""icon_profile_unknown.gif"" border=""0"" alt=""View Full Profile"" align=""absmiddle"">")
end if %> View Full Profile</a> </font></td>
</tr>
</table></td></tr></table>
<%End Sub
Sub GetPicFileInfo( i_sFilename, o_PicType, o_nWidth, o_nHeight )
i_sFilename = replace(i_sFilename, "/", "\", 1, -1, 1)
o_PicType = ""
o_nWidth = 0
o_nHeight = 0
Dim fso, ts
Dim GIF_MARKER, JPG_MARKER
GIF_MARKER = "GIF8"
JPG_MARKER = Chr(&HFF) & Chr(&HD8) & Chr(&HFF) & Chr(&HE0)
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set ts = fso.OpenTextFile(Server.MapPath("/snitz3403/" & i_sFilename))
If Err.Number <> 0 Then
Err.Clear
Set ts = fso.OpenTextFile("/snitz3403/halo.gif")
End if
Select Case ts.Read(4)
Case GIF_MARKER
o_PicType = "GIF"
ts.Skip(2)
If Err.Number <> 0 Then
Exit Sub
End If
o_nWidth = Asc(ts.Read(1)) + ( Asc(ts.Read(1))* 256 )
o_nHeight = Asc(ts.Read(1)) + ( Asc(ts.Read(1))* 256 )
Case JPG_MARKER
o_PicType = "JPG"
Dim byteVal, bDone
bDone = False
byteVal = Asc(ts.Read(1))
Do While Not ts.AtEndOfStream And byteVal <> &HD8 And Not bDone
'look for the next marker (xFF)
Do While Not ts.AtEndOfStream And byteVal <> &HFF
byteVal = Asc(ts.Read(1))
Loop
'Get past any repeated xFF markers
Do While Not ts.AtEndOfStream And byteVal = &HFF
byteVal = Asc(ts.Read(1))
Loop
'Check out the marker
'if this is the width/height section then read the values
If ((byteVal >= &HC0) And (byteVal <= &HC3)) Then
ts.Skip(3)
If Err.Number <> 0 Then
Exit Sub
End If
If Not ts.EOF Then
o_nHeight = (Asc(ts.Read(1)) * 256) + Asc(ts.Read(1))
o_nWidth = (Asc(ts.Read(1)) * 256) + Asc(ts.Read(1))
bDone = True
End If
Else
'this is a comment or other stuff we are not interested in.
'we must read the size and then skip over this section
Dim nSectionLength
nSectionLength = (Asc(ts.Read(1)) * 256) + Asc(ts.Read(1))
'NOTE: we subtract two since from the size since we already
'are past the length bytes which are included in the size
ts.Skip(nSectionLength - 2)
byteVal = Asc(ts.Read(1))
If Err.Number <> 0 Then
Exit Sub
End If
End If
Loop
End Select
maxwidth = 100
maxheight = 125
if o_nWidth > maxwidth or o_nHeight > maxheight then
if o_nWidth > maxwidth then
o_nHeight = cInt(o_nHeight * maxwidth/o_nWidth)
o_nWidth = maxwidth
if (o_nHeight > maxheight) then
o_nWidth = cInt(o_nWidth * maxheight/o_nHeight)
o_nHeight = maxheight
end if
elseif o_nHeight > maxheight then
o_nWidth = cInt(o_nWidth * maxheight/o_nHeight)
o_nHeight = maxheight
if (o_nWidth > maxwidth) then
o_nHeight = cInt(o_nHeight * maxwidth/o_nWidth)
o_nWidth = maxwidth
end if
end if
end if
o_nText = " X "
response.write " width=""" & o_nWidth & """ height=""" & o_nHeight & """"
response.write " title=""" & o_nWidth & o_nText & o_nHeight & """"
Set ts = Nothing
Set fso = Nothing
End Sub
%>
|
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
Posted - 17 December 2003 : 03:13:57
|
OK, That works fine now!
Just one last thing, is there a way to just have a link to thier profile instead of the broken image?? |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 17 December 2003 : 17:09:25
|
| The broken image on mine was a gender indicator, put those images on your site or remove the IMG tags. |
|
|
|
revenger
Junior Member
United Kingdom
132 Posts |
Posted - 17 December 2003 : 18:06:48
|
| I removed the img code, but it does not show up at all then. |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 17 December 2003 : 18:19:05
|
| Sorry, my bad wording ... you need to remove the IMG tag, but keep only the alt text. |
|
|
|
Topic |
|
|
|
Topic Locked
