Forums
This topic is locked
Invisible Data
Posted 27 Jun 2002 09:07:43
1
has voted
27 Jun 2002 09:07:43 aegis kleais posted:
Ok, WinXP Pro, IIS5.1, SQLServer7, ASP/VBScript.I have a table called dbo.News
it has the following 5 fields
fldNewsID (primary key, numeric)
fldTitle (text)
fldDate (smalldate)
fldPostedBy (text)
fldContent (text)
When I insert each of the following into the page, everyone BUT fldTitle show up. I looked at the code and it says:
rcdNews.Fields.Item("fldTitle".value for the Title field. That seems correct. But nothing shows up. I checked the database, and indeed, every field has information in it. I'm beginning to think this is an IIS/UD4 bug. Where the TITLE should be, there's just blank space.
Replies
Replied 27 Jun 2002 09:55:30
27 Jun 2002 09:55:30 Andrew Watson replied:
can you post all the code on this page? this is interesting...
:: Son, im Thirty.... ::
:: Son, im Thirty.... ::
Replied 27 Jun 2002 10:00:24
27 Jun 2002 10:00:24 Iain Stewart replied:
This might sound really stupid but have you checked the colour of the text, white text wont show on a white background, just a passing thought.
Iain
Iain
Replied 27 Jun 2002 17:17:21
27 Jun 2002 17:17:21 aegis kleais replied:
It's definitely not font that's the same color as the background..... here's the page's code.
<% @LANGUAGE = VBSCRIPT %>
<!--#include file="Connections/csSQLLoki.asp" -->
<%
set rcdLokiNews = Server.CreateObject("ADODB.Recordset"
rcdLokiNews.ActiveConnection = MM_csSQLLoki_STRING
rcdLokiNews.Source = "SELECT * FROM dbo.tblLokiNews ORDER BY fldDate DESC"
rcdLokiNews.CursorType = 0
rcdLokiNews.CursorLocation = 2
rcdLokiNews.LockType = 3
rcdLokiNews.Open()
rcdLokiNews_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
' set the record count
rcdLokiNews_total = rcdLokiNews.RecordCount
' set the number of rows displayed on this page
If (rcdLokiNews_numRows < 0) Then
rcdLokiNews_numRows = rcdLokiNews_total
Elseif (rcdLokiNews_numRows = 0) Then
rcdLokiNews_numRows = 1
End If
' set the first and last displayed record
rcdLokiNews_first = 1
rcdLokiNews_last = rcdLokiNews_first + rcdLokiNews_numRows - 1
' if we have the correct record count, check the other stats
If (rcdLokiNews_total <> -1) Then
If (rcdLokiNews_first > rcdLokiNews_total) Then rcdLokiNews_first = rcdLokiNews_total
If (rcdLokiNews_last > rcdLokiNews_total) Then rcdLokiNews_last = rcdLokiNews_total
If (rcdLokiNews_numRows > rcdLokiNews_total) Then rcdLokiNews_numRows = rcdLokiNews_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rcdLokiNews_total = -1) Then
' count the total records by iterating through the recordset
rcdLokiNews_total=0
While (Not rcdLokiNews.EOF)
rcdLokiNews_total = rcdLokiNews_total + 1
rcdLokiNews.MoveNext
Wend
' reset the cursor to the beginning
If (rcdLokiNews.CursorType > 0) Then
rcdLokiNews.MoveFirst
Else
rcdLokiNews.Requery
End If
' set the number of rows displayed on this page
If (rcdLokiNews_numRows < 0 Or rcdLokiNews_numRows > rcdLokiNews_total) Then
rcdLokiNews_numRows = rcdLokiNews_total
End If
' set the first and last displayed record
rcdLokiNews_first = 1
rcdLokiNews_last = rcdLokiNews_first + rcdLokiNews_numRows - 1
If (rcdLokiNews_first > rcdLokiNews_total) Then rcdLokiNews_first = rcdLokiNews_total
If (rcdLokiNews_last > rcdLokiNews_total) Then rcdLokiNews_last = rcdLokiNews_total
End If
%>
<%
' *** Move To Record and Go To Record: declare variables
Set MM_rs = rcdLokiNews
MM_rsCount = rcdLokiNews_total
MM_size = rcdLokiNews_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "" Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> ""
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
r = Request.QueryString("index"
If r = "" Then r = Request.QueryString("offset"
If r <> "" Then MM_offset = Int(r)
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
i = 0
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record
End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range
If (MM_rsCount = -1) Then
' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If
' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
rcdLokiNews_first = MM_offset + 1
rcdLokiNews_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (rcdLokiNews_first > MM_rsCount) Then rcdLokiNews_first = MM_rsCount
If (rcdLokiNews_last > MM_rsCount) Then rcdLokiNews_last = MM_rsCount
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "" Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "" Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "" Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "" Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "" Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
MM_moveParam = "offset"
If (MM_keepMove <> "" Then
params = Split(MM_keepMove, "&"
MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=" - 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove <> "" Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "" Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL" & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>
<%
' obtain login information and set cookies if present
' un = Session("MM_Username"
' if un = "" then Response.Redirect("login.asp"
if Request.Form("remember" <> "" then
Response.Cookies("username" = Request.Form("username"
Response.Cookies("password" = Request.Form("password"
end if
' after you obtain user info from recordset, set SessVar uid
%>
<html>
<head>
<title>:: loki devcenter ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript" SRC="js/loki.js">
<!--
//-->
</script>
<link rel="stylesheet" href="css/loki.css" type="text/css">
</head>
<body bgcolor="#c1c1c1">
<table width="710" border="0" cellspacing="0" cellpadding="20" bgcolor="#FFFFFF" align="center" height="100%">
<tr>
<td align="center" valign="top">
<table width="710" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr align="center" valign="middle">
<td height="17" width="25%" background="images/top_bg.gif" class="nav"><a href="resources.asp" class="nav">resources</a></td>
<td width="25%" background="images/top_bg.gif" class="nav"><a href="comms.asp" class="nav">communications</a></td>
<td width="25%" background="images/top_bg.gif" class="nav"><a href="projects.asp" class="nav">projects</a></td>
<td width="25%" background="images/top_bg.gif" class="nav"><a href="search.asp" class="nav">search</a></td>
</tr>
<tr>
<td height="112" bgcolor="bcbcbc" align="center" valign="middle" class="sidenav"><i>loki
v2.01 </i><br>
<a href="bug_report.asp" class="sidenav">report bug</a> | <a href="credits.asp" class="sidenav">credits</a></td>
<td bgcolor="bcbcbc" align="center" valign="middle"> </td>
<td bgcolor="bcbcbc" align="center" valign="middle"> </td>
<td bgcolor="bcbcbc" align="center" valign="middle"><a href="index.asp"><img src="images/logo_green.gif" width="141" height="53" border="0" alt="lazarus devcenter"></a></td>
</tr>
<tr>
<td colspan="3" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="5" height="100%">
<tr>
<td align="left" valign="top">
<p><span class="headerGreen">Welcome to Loki</span> <a href="news_loki_add.asp"><img src="images/icon_add.gif" width="17" height="16" align="absmiddle" border="0"></a><br>
<span class="instructions">home : welcome | <b><font color="94cd22"><u>
sessions are <%= Session.Timeout %> minutes long.</u></font></b></span><br>
<br>
<font color="#CCCCCC"><span class="greenLink"><%=(rcdLokiNews.Fields.Item("fldTitle".Value)%></span></font><span class="instructions"><font color="#CCCCCC"><br>
<%=(rcdLokiNews.Fields.Item("fldDate".Value)%></font> |<font color="#CCCCCC"> <font color="#999999">
by <%=(rcdLokiNews.Fields.Item("fldPostedBy".Value)%></font></font></span><font color="#CCCCCC"><span class="instructions"><br>
</span></font><span class="instructions"><%=(rcdLokiNews.Fields.Item("fldContent".Value)%></span><br>
<br>
<span class="instructions"> <a href="javascript:history.go(-1)"><img src="images/icon_back.gif" width="17" height="16" alt="back" border="0"></a>
<a href="#"><img src="images/icon_top.gif" width="17" height="16" alt="top" border="0"></a></span></p>
</td>
</tr>
</table>
</td>
<td bgcolor="#94cd22" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('login.asp')">
<td class="sidenav">login / logout</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('progress.asp')">
<td class="sidenav">progress bars / visitors</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('flags.asp')">
<td class="sidenav">admin flags</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('guestbook.asp')">
<td class="sidenav">admin guestbook</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('news_athena.asp')">
<td class="sidenav">admin news (athena)</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('news_loki.asp')">
<td class="sidenav">admin news (loki)</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('npcs.asp')">
<td class="sidenav">admin npcs</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('objectives.asp')">
<td class="sidenav">admin objectives</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('quests.asp')">
<td class="sidenav">admin quests</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('regions.asp')">
<td class="sidenav">admin regions</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('users.asp')">
<td class="sidenav">admin users</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('variables.asp')">
<td class="sidenav">admin variables</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
rcdLokiNews.Close()
%>
<% @LANGUAGE = VBSCRIPT %>
<!--#include file="Connections/csSQLLoki.asp" -->
<%
set rcdLokiNews = Server.CreateObject("ADODB.Recordset"
rcdLokiNews.ActiveConnection = MM_csSQLLoki_STRING
rcdLokiNews.Source = "SELECT * FROM dbo.tblLokiNews ORDER BY fldDate DESC"
rcdLokiNews.CursorType = 0
rcdLokiNews.CursorLocation = 2
rcdLokiNews.LockType = 3
rcdLokiNews.Open()
rcdLokiNews_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
' set the record count
rcdLokiNews_total = rcdLokiNews.RecordCount
' set the number of rows displayed on this page
If (rcdLokiNews_numRows < 0) Then
rcdLokiNews_numRows = rcdLokiNews_total
Elseif (rcdLokiNews_numRows = 0) Then
rcdLokiNews_numRows = 1
End If
' set the first and last displayed record
rcdLokiNews_first = 1
rcdLokiNews_last = rcdLokiNews_first + rcdLokiNews_numRows - 1
' if we have the correct record count, check the other stats
If (rcdLokiNews_total <> -1) Then
If (rcdLokiNews_first > rcdLokiNews_total) Then rcdLokiNews_first = rcdLokiNews_total
If (rcdLokiNews_last > rcdLokiNews_total) Then rcdLokiNews_last = rcdLokiNews_total
If (rcdLokiNews_numRows > rcdLokiNews_total) Then rcdLokiNews_numRows = rcdLokiNews_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rcdLokiNews_total = -1) Then
' count the total records by iterating through the recordset
rcdLokiNews_total=0
While (Not rcdLokiNews.EOF)
rcdLokiNews_total = rcdLokiNews_total + 1
rcdLokiNews.MoveNext
Wend
' reset the cursor to the beginning
If (rcdLokiNews.CursorType > 0) Then
rcdLokiNews.MoveFirst
Else
rcdLokiNews.Requery
End If
' set the number of rows displayed on this page
If (rcdLokiNews_numRows < 0 Or rcdLokiNews_numRows > rcdLokiNews_total) Then
rcdLokiNews_numRows = rcdLokiNews_total
End If
' set the first and last displayed record
rcdLokiNews_first = 1
rcdLokiNews_last = rcdLokiNews_first + rcdLokiNews_numRows - 1
If (rcdLokiNews_first > rcdLokiNews_total) Then rcdLokiNews_first = rcdLokiNews_total
If (rcdLokiNews_last > rcdLokiNews_total) Then rcdLokiNews_last = rcdLokiNews_total
End If
%>
<%
' *** Move To Record and Go To Record: declare variables
Set MM_rs = rcdLokiNews
MM_rsCount = rcdLokiNews_total
MM_size = rcdLokiNews_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "" Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> ""
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
r = Request.QueryString("index"
If r = "" Then r = Request.QueryString("offset"
If r <> "" Then MM_offset = Int(r)
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
i = 0
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record
End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range
If (MM_rsCount = -1) Then
' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If
' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
rcdLokiNews_first = MM_offset + 1
rcdLokiNews_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (rcdLokiNews_first > MM_rsCount) Then rcdLokiNews_first = MM_rsCount
If (rcdLokiNews_last > MM_rsCount) Then rcdLokiNews_last = MM_rsCount
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "" Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "" Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "" Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "" Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "" Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
MM_moveParam = "offset"
If (MM_keepMove <> "" Then
params = Split(MM_keepMove, "&"
MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=" - 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove <> "" Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "" Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL" & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>
<%
' obtain login information and set cookies if present
' un = Session("MM_Username"
' if un = "" then Response.Redirect("login.asp"
if Request.Form("remember" <> "" then
Response.Cookies("username" = Request.Form("username"
Response.Cookies("password" = Request.Form("password"
end if
' after you obtain user info from recordset, set SessVar uid
%>
<html>
<head>
<title>:: loki devcenter ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript" SRC="js/loki.js">
<!--
//-->
</script>
<link rel="stylesheet" href="css/loki.css" type="text/css">
</head>
<body bgcolor="#c1c1c1">
<table width="710" border="0" cellspacing="0" cellpadding="20" bgcolor="#FFFFFF" align="center" height="100%">
<tr>
<td align="center" valign="top">
<table width="710" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr align="center" valign="middle">
<td height="17" width="25%" background="images/top_bg.gif" class="nav"><a href="resources.asp" class="nav">resources</a></td>
<td width="25%" background="images/top_bg.gif" class="nav"><a href="comms.asp" class="nav">communications</a></td>
<td width="25%" background="images/top_bg.gif" class="nav"><a href="projects.asp" class="nav">projects</a></td>
<td width="25%" background="images/top_bg.gif" class="nav"><a href="search.asp" class="nav">search</a></td>
</tr>
<tr>
<td height="112" bgcolor="bcbcbc" align="center" valign="middle" class="sidenav"><i>loki
v2.01 </i><br>
<a href="bug_report.asp" class="sidenav">report bug</a> | <a href="credits.asp" class="sidenav">credits</a></td>
<td bgcolor="bcbcbc" align="center" valign="middle"> </td>
<td bgcolor="bcbcbc" align="center" valign="middle"> </td>
<td bgcolor="bcbcbc" align="center" valign="middle"><a href="index.asp"><img src="images/logo_green.gif" width="141" height="53" border="0" alt="lazarus devcenter"></a></td>
</tr>
<tr>
<td colspan="3" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="5" height="100%">
<tr>
<td align="left" valign="top">
<p><span class="headerGreen">Welcome to Loki</span> <a href="news_loki_add.asp"><img src="images/icon_add.gif" width="17" height="16" align="absmiddle" border="0"></a><br>
<span class="instructions">home : welcome | <b><font color="94cd22"><u>
sessions are <%= Session.Timeout %> minutes long.</u></font></b></span><br>
<br>
<font color="#CCCCCC"><span class="greenLink"><%=(rcdLokiNews.Fields.Item("fldTitle".Value)%></span></font><span class="instructions"><font color="#CCCCCC"><br>
<%=(rcdLokiNews.Fields.Item("fldDate".Value)%></font> |<font color="#CCCCCC"> <font color="#999999">
by <%=(rcdLokiNews.Fields.Item("fldPostedBy".Value)%></font></font></span><font color="#CCCCCC"><span class="instructions"><br>
</span></font><span class="instructions"><%=(rcdLokiNews.Fields.Item("fldContent".Value)%></span><br>
<br>
<span class="instructions"> <a href="javascript:history.go(-1)"><img src="images/icon_back.gif" width="17" height="16" alt="back" border="0"></a>
<a href="#"><img src="images/icon_top.gif" width="17" height="16" alt="top" border="0"></a></span></p>
</td>
</tr>
</table>
</td>
<td bgcolor="#94cd22" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('login.asp')">
<td class="sidenav">login / logout</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('progress.asp')">
<td class="sidenav">progress bars / visitors</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('flags.asp')">
<td class="sidenav">admin flags</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('guestbook.asp')">
<td class="sidenav">admin guestbook</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('news_athena.asp')">
<td class="sidenav">admin news (athena)</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('news_loki.asp')">
<td class="sidenav">admin news (loki)</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('npcs.asp')">
<td class="sidenav">admin npcs</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('objectives.asp')">
<td class="sidenav">admin objectives</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('quests.asp')">
<td class="sidenav">admin quests</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('regions.asp')">
<td class="sidenav">admin regions</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('users.asp')">
<td class="sidenav">admin users</td>
</tr>
<tr class="linkrow" onMouseOver="rowOver(this,'84BD12')" onMouseOut="rowOut(this)" onClick="goPlace('variables.asp')">
<td class="sidenav">admin variables</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
rcdLokiNews.Close()
%>
Replied 28 Jun 2002 10:17:15
28 Jun 2002 10:17:15 Viktor Farcic replied:
The problem is in field type "text". It must be last selected in SQL in order to be displayed on a page. So, SQL should look like:
SELECT fldNewsID, fldDate, fldTitle, fldPostedBy, fldContent FROM ...
Whenever I can, I use varchar instead of text. It can hold up to 8.000 characters and that enough for most scenarios.
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Ok, WinXP Pro, IIS5.1, SQLServer7, ASP/VBScript.
I have a table called dbo.News
it has the following 5 fields
fldNewsID (primary key, numeric)
fldTitle (text)
fldDate (smalldate)
fldPostedBy (text)
fldContent (text)
When I insert each of the following into the page, everyone BUT fldTitle show up. I looked at the code and it says:
rcdNews.Fields.Item("fldTitle".value for the Title field. That seems correct. But nothing shows up. I checked the database, and indeed, every field has information in it. I'm beginning to think this is an IIS/UD4 bug. Where the TITLE should be, there's just blank space.
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
Viktor Farcic
www.farcic.com
TalkZone Manager
SELECT fldNewsID, fldDate, fldTitle, fldPostedBy, fldContent FROM ...
Whenever I can, I use varchar instead of text. It can hold up to 8.000 characters and that enough for most scenarios.
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Ok, WinXP Pro, IIS5.1, SQLServer7, ASP/VBScript.
I have a table called dbo.News
it has the following 5 fields
fldNewsID (primary key, numeric)
fldTitle (text)
fldDate (smalldate)
fldPostedBy (text)
fldContent (text)
When I insert each of the following into the page, everyone BUT fldTitle show up. I looked at the code and it says:
rcdNews.Fields.Item("fldTitle".value for the Title field. That seems correct. But nothing shows up. I checked the database, and indeed, every field has information in it. I'm beginning to think this is an IIS/UD4 bug. Where the TITLE should be, there's just blank space.
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
Viktor Farcic
www.farcic.com
TalkZone Manager
Replied 28 Jun 2002 15:47:45
28 Jun 2002 15:47:45 aegis kleais replied:
Wow! You're absolutely correct vfarcic! Instead of saying *, I but them in order so that TEXT data types were last and boom, there it was. I still don't understand why (I'm one who always likes finding out why <img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle> ) So you're saying varchar would allow me to use "SELECT * FROM..." rather than having to list fields with TEXT types last? 8,000 character would be MORE than enough for my needs as well. My thanks for the help <img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle>
Replied 28 Jun 2002 16:35:50
28 Jun 2002 16:35:50 Viktor Farcic replied:
It's the same with memo field in Access. I can't tell you either why is it like that. I'm going to try it with ADO.Net just to see if it produces same problem.
I'm almost never using text data type. In most cases varchar is enough. When it isn't I prefer storing data as txt file on a server.
Viktor Farcic
www.farcic.com
TalkZone Manager
I'm almost never using text data type. In most cases varchar is enough. When it isn't I prefer storing data as txt file on a server.
Viktor Farcic
www.farcic.com
TalkZone Manager
Replied 28 Jun 2002 19:17:08
28 Jun 2002 19:17:08 aegis kleais replied:
Oh oh. Bit of a prob. I set the datatype to varchar and now it won't let me input anymore than 50 characters. I noted in the SEM that the varchar datatype has a "LENGTH" of 50. Does this mean 50 characters? If so, how do I change this so I can have that 8000 characters or so? When I enter more than about 50 characters, I get a "Data too large for field datatype" error.