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 |
|
|
|