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