473,388 Members | 1,209 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,388 software developers and data experts.

TAg Board

see i got one Tab board code but i dont know when i put that in my
webpage it say something which i dont understand pleae help me
================================= Here is the code
============================
<%
'
' vTag ASP TagBoard by Rogers
' http://rogers.rikky.net
'
' This product is linkware, please link back
' to http://rogers.rikky.net if you use it
'
' You need to edit "db\tag.txt" to the location
' where you want your text file. Brinkster users
' keep it the way it is. Remember, you must create
' the file before running the script.
fp = Server.MapPath("db\tag.txt")
'
' Do not edit any of this until you hit the html
' unless you know what you are doing
'
dim TheText
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set theTextFile = FSO.OpenTextFile(fp)
While Not theTextFile.AtEndOfStream
TheText = TheText & theTextFile.ReadLine
Wend
theTextFile.Close

dim msg1, handle, url, TheTag
msg1=request.form("msg")
handle=request.form("handle")
url=request.form("url")
if msg1 <> "" then
msg1 = replace(msg1, "<", "<")
handle = replace(handle, "<", "<")
url = replace(url, "<", "<")
Set theTextFile = fso.CreateTextFile(fp, true)
TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" &
chr(34) & "_blank" & chr(34) & ><b>" & handle & "</b></a>: " & msg1
theTextFile.WriteLine(TheTag & "<br>" & TheText)
theTextFile.Close
TheTag = TheTag & "<br>"
else
TheTag = ""
end if
'
' Begin editable HTML here
'
%>
<html>
<head>
<title>vTag - http://rogers.rikky.net</title>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"
bgcolor="#3098D0" text="#000000" link="#000000" vlink="#000000"
alink="#000000">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font face="arial" size="2"><%= TheTag & TheText %></td>
</tr>
</table>
</body>
</html>
=========================== end of code
==================================

well i get this message when i doit
============ Error message =========
Microsoft VBScript compilation error '800a03ea'

Syntax error

/vtag.asp, line 35

TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" & chr(34) &
"_blank" & chr(34) & ><b>" & handle & "</b></a>: " & msg1
--------------------------------------------------------------------------------------------^
======= end of error message ====

well even i created db directory and even tag.txt in it but still it
comes can any one help me about it please
Jul 19 '05 #1
2 1662
TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" & chr(34) &
"_blank" & chr(34) & ><b>" & handle & "</b></a>: " & msg1

should be

TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" & chr(34) &
"_blank" & chr(34) & "><b>" & handle & "</b></a>: " & msg1

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!
"Kaustubh" <ch*********@rediffmail.com> wrote in message
news:74**************************@posting.google.c om...
see i got one Tab board code but i dont know when i put that in my
webpage it say something which i dont understand pleae help me
================================= Here is the code
============================
<%
'
' vTag ASP TagBoard by Rogers
' http://rogers.rikky.net
'
' This product is linkware, please link back
' to http://rogers.rikky.net if you use it
'
' You need to edit "db\tag.txt" to the location
' where you want your text file. Brinkster users
' keep it the way it is. Remember, you must create
' the file before running the script.
fp = Server.MapPath("db\tag.txt")
'
' Do not edit any of this until you hit the html
' unless you know what you are doing
'
dim TheText
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set theTextFile = FSO.OpenTextFile(fp)
While Not theTextFile.AtEndOfStream
TheText = TheText & theTextFile.ReadLine
Wend
theTextFile.Close

dim msg1, handle, url, TheTag
msg1=request.form("msg")
handle=request.form("handle")
url=request.form("url")
if msg1 <> "" then
msg1 = replace(msg1, "<", "<")
handle = replace(handle, "<", "<")
url = replace(url, "<", "<")
Set theTextFile = fso.CreateTextFile(fp, true)
TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" &
chr(34) & "_blank" & chr(34) & ><b>" & handle & "</b></a>: " & msg1
theTextFile.WriteLine(TheTag & "<br>" & TheText)
theTextFile.Close
TheTag = TheTag & "<br>"
else
TheTag = ""
end if
'
' Begin editable HTML here
'
%>
<html>
<head>
<title>vTag - http://rogers.rikky.net</title>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"
bgcolor="#3098D0" text="#000000" link="#000000" vlink="#000000"
alink="#000000">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font face="arial" size="2"><%= TheTag & TheText %></td>
</tr>
</table>
</body>
</html>
=========================== end of code
==================================

well i get this message when i doit
============ Error message =========
Microsoft VBScript compilation error '800a03ea'

Syntax error

/vtag.asp, line 35

TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" & chr(34) &
"_blank" & chr(34) & ><b>" & handle & "</b></a>: " & msg1
-------------------------------------------------------------------------- ------------------^ ======= end of error message ====

well even i created db directory and even tag.txt in it but still it
comes can any one help me about it please

Jul 19 '05 #2
Or just:

TheTag = "<a href=" & url & _
" target=_blank><b>" & _
handle & "</b></a>: " & msg1

--
http://www.aspfaq.com/
(Reverse address to reply.)


"Steven Burn" <pv*@noyb.com> wrote in message
news:#B*************@TK2MSFTNGP10.phx.gbl...
TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" & chr(34) &
"_blank" & chr(34) & ><b>" & handle & "</b></a>: " & msg1

should be

TheTag = "<a href=" & chr(34) & url & chr(34) & " target=" & chr(34) &
"_blank" & chr(34) & "><b>" & handle & "</b></a>: " & msg1

Jul 19 '05 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
by: delisonews | last post by:
I'm looking for a simple, filesystem-based message board. (No MySQL!) Something that I could include easily in my code: include '../inc/messageboard.php'; .... so that the board shows up at...
0
by: Mad Scientist Jr | last post by:
I'm not getting any answers on YAF's own board, so thought I'd ask here... how do you get YAF to work with >1 board? I clicked Admin and on the left, Boards, and we have created 3 boards *...
2
by: Champika Nirosh | last post by:
Hi, I want to create drawing board application that can draw Line, rectagle, circle and free hand drawing. Each drawing need to be transparent, moveable (draggable), have bring to front and...
2
by: Mark | last post by:
Hi, does anyone know of any *good* "job board" software which is available for purchase/ download. I did look @ the jobboard available from Ibuyspysolutions but do not really want to have to...
6
by: Supra | last post by:
i got board working using graphic window in vb.net but no controls adding to form. i am doing checker board game. when i clicked and moved the peg to another location(grid). but how do i get bitmap...
10
by: sam_cit | last post by:
Hi Everyone, I'm working on developing a chess game and i decided to use c++ for its object oriented approach. I have a bass class unit and is inherited to distinct number of units (like king,...
3
by: john | last post by:
I would like to view physical memory that is mapped to a pci board. I am using a tool called WinIO to try to create a virtual address to that physical memory. It works for both read and write of...
4
by: Hypnotik | last post by:
So I'm writing this program. I have the board constructed, and I'm having a problem making a move. At this point I just want to make a move, I'll work on whether it is a legal move after that. The...
8
by: PhongPham | last post by:
Hello, Info relate: OS : uclinux Platform : unix version 2.4.22 (or 2.4.26) Chip on board : ARM7 I want to get a python package on network to "make" in linux (Fedora core 1 or anything...
1
by: poopsy | last post by:
hi all, i'm trying out some examples on java..and i found this code where there is board and i cant find out what package to import to make this work, im getting error where there is "board".. i...
0
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
0
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
0
BarryA
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
by: Hystou | last post by:
There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
0
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
0
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.