how does one write a Response.write to a file 5

MAWarGod · Mar 28, 2002

I would ilike to be able to write a code like this to a asp
file
<% If Handle="WarGod MA" then
Response.write ""
end if %>

AncientTiger · Apr 1, 2002

Well, if you're wanting the ""
to be displayed to users when they load a page, then you need to enclose the string in parenthesis, like so:

===================================================

response.write("&quot

===================================================

If you're talking about writing text to a text-type file, then you'll need to use the FileSystemObject to open/write/close the info to a text file. If you need more info on this process, just holler.....

MAWarGod · Apr 9, 2002

hollering hollering hollering hollering
ok what I trying to do is allow the user to input the name they so desire
<% If Handle="WarGod MA" then
Response.write ""
end if %>

in this case WarGod MA them when they hit a submit button

have this writen to a file
<% If Handle="WarGod MA" then
Response.write ""
end if %>
the rest of the database reads from that file

Turkbear · Apr 9, 2002

Have What written to a file? 1 line of html code?
To what file? What database ?

Please post the page's code to clarify what you want to do...

MAWarGod · Apr 9, 2002

I have a file that has the names and colors like this
The file name is modb.asp



<% On Error Resume Next %>
<% If Handle="WarGod MA" then
Response.write ""
end if %>
<% If Handle="~*WarGod MA*~ *Venna*RGW" then
Response.write "<div><A href=""

http://www.realgoreanworld.com/enterypages/Venna.html""><font

color='gold'></A>"
end if %>
<% If Handle="IMORATEC`*Never say Neve" then
Response.write ""
end if %>
<% If Handle="-=Head-Administrator=-" then
Response.write ""
end if %>
<% If Handle="-=Head-Administrator=--=" then
Response.write ""
end if %>


<% If Handle="||||||| Eve Vale ||||||" then
Response.write ""
end if %>
<% If Handle="Relius" then
Response.write ""
end if %>
<% If Handle="Wynter Valentine Falconu" then
Response.write ""
end if %>
<% If Handle="***†† Hiskrut ††*** Retr" then
Response.write ""
end if %>
<% If Handle="****††† Hiskrut †††****" then
Response.write ""
end if %>
<% If Handle="Titan Phalynx UbarIsle o" then

Response.write ""
end if %>
<% If Handle="Ubar Relius / Juliet {ka" then
Response.write ""
end if %>

<% If Handle="||||||| Eve Vale |||||||" then
Response.write ""
end if %>

<% If Handle="'Vasade de la Rose" then
Response.write ""
end if %>
<% If Handle="Loric DavioUBARKo-ro-ba" then
Response.write ""
end if %>
<% If Handle="LoricWhat is one to doWh" then
Response.write ""
end if %>
<% If Handle="Ubar Relius {kardelen} {" then
Response.write ""
end if %>
<% If Handle="Ubar Relius/Juliet Ubar" then
Response.write ""
end if %>
<% If Handle="Locke D'AveramSlaverHous" then
Response.write ""
end if %>
<% If Handle="*~Haley LeBlanc~*QueenWi" then
Response.write ""
end if %>
<% If Handle="Lady Juliet/Ubar ReliusO" then
Response.write ""
end if %>
<% If Handle="~Ubar Jask Tong~First Ch" then
Response.write ""
end if %>
<% If Handle="`-}-}-}Loric Da'vio{-{-{" then
Response.write ""
end if %>
<% If Handle="-}-}-}Loric Da'vio{-{-{-" then
Response.write ""
end if %>
<% If Handle="}-}-}-}-}Loric{-{-{-{-{-" then
Response.write ""
end if %>
<% If Handle="-=Room-Moderator=--=Room" then
Response.write ""
end if %>
<% If Handle="-=Room-Moderator=-" then
Response.write ""

end if %>

<% If Handle="Ubar Malik Heratic Oasis" then
Response.write ""
end if %>
<% If Handle="Ubar Malik Heratic Oasis" then
Response.write ""
end if %>


<% If Handle="^.^ Dark Kitty ^.^Tatrix" then
Response.write ""
end if %>
<% If Handle="| | | Tovah Heratic |" then
Response.write ""
end if %>
<% If Handle="Tovah Heratic" then
Response.write ""
end if %>
<% If Handle="lianna{LD}House of D`Ave" then
Response.write ""
end if %>

<% If Handle="kasey {Oslo} bl Masters" then
Response.write ""
end if %>
<% If Handle="Oslo =First Shield=Port" then
Response.write ""
end if %>
<% If Handle="*~Haley LeBlanc~*QueenWi" then
Response.write ""
end if %>
<% If Handle="=-=the ORIGINAL evil=-=" then
Response.write ""
end if %>
<% If Handle="~*~laynee~*~{LDavio-1}~*" then
Response.write ""
end if %>
<% If Handle="laynee {LDavio}" then
Response.write ""
end if %>
<% If Handle="~*~laynee~*~{LDavio-1}}-" then
Response.write ""
end if %>
<% If Handle="Ubar Relius/JulietUbar" then
Response.write ""
end if %>
<% If Handle="~kardelen~{Rel}~R~ restr" then
Response.write ""
end if %>
<% If Handle="Malik" then
Response.write ""
end if %>
<% If Handle="Lady Arwen Eveningstar" then
Response.write ""
end if %>
<% If Handle="~kardelen~{Rel}~R~ ~rest" then
Response.write ""
end if %>
<% If Handle="jace{MH}Oasis of The Sto" then
Response.write ""
end if %>
<% If Handle="StefanieIMORATEC Eternal" then
Response.write ""
end if %>
<% If Handle="damion{LJ}~R" then
Response.write ""
end if %>
<% If Handle="damion {LJ}~r~~branded~l" then
Response.write ""
end if %>
<% If Handle="damion {LJ}~R~~branded~l" then
Response.write ""
end if %>
<% If Handle="Ubara Juliet/Ubar Relius" then
Response.write ""
end if %>
<% If Handle="jewel{MoT}branded(M)(T)k" then
Response.write ""
end if %>
<% If Handle="JoKeR _MA" then
Response.write ""
end if %>

<% If Handle="lazy laynee {LDavio-1}" then
Response.write ""
end if %>



<% If Handle="I am not creative enough" then
Response.write ""
end if %>
<% If Handle="======Mentally ill======" then
Response.write ""
end if %>
<% If Handle="Zatrina_____Panther [Tuc" then
Response.write ""
end if %>
<% If Handle="Leatha Panther ~Ata Adoh" then
Response.write ""
end if %>
<% If Handle="_:

eath by Beauty :::_" then
Response.write ""
end if %>
<% If Handle="Ramer/Shanna**-UBAR-**Ka" then
Response.write ""
end if %>
<% If Handle="~Ubar Jask Tong~Courting" then
Response.write ""
end if %>
<% If Handle="Claws of NightGryphon of" then
Response.write ""
end if %>
<% If Handle="~ leah ~Protected by Ret" then
Response.write ""
end if %>
<% If Handle="Beth de la RoseLo Spurgo" then
Response.write ""
end if %>

<% If Handle="*^^**Pwitty in Pink**^^*" then
Response.write ""
end if %>
<% If Handle="~*~Adrina Da'vio~*~~*~Da" then
Response.write ""
end if %>
<% If Handle="daphne{Citadel}Barbarian" then
Response.write ""
end if %>
<% If Handle="Maximus/=ClaireCity Seco" then
Response.write ""
end if %>
<% If Handle="~Claire/=Maximus~Proud M" then
Response.write ""
end if %>
<% If Handle="Maximus Jr. Proud Son of" then
Response.write ""
end if %>
<% If Handle="lu{KoB}" then
Response.write ""
end if %>
<% If Handle="willow{Dray}~R~~kajira t" then
Response.write ""
end if %>
<% If Handle="sherrie{HoD}~t~" then
Response.write ""
end if %>
<% If Handle="necia{LD}trainer House o" then
Response.write ""
end if %>
<% If Handle="...:::The Deadly Rose:::" then
Response.write ""
end if %>
<% If Handle="Tiamara Shadoweaver" then
Response.write ""
end if %>
<% If Handle="~*blossom*~(HoD)" then
Response.write ""
end if %>

<% If Handle="Jah`Karr =|=First Slaver" then
Response.write ""
end if %>
<% If Handle="^-^ mimpi ^-^ [[ Proper" then
Response.write ""
end if %>
<% If Handle="tibet{VIP}" then
Response.write ""
end if %>
<% If Handle="~'*rahanna{JTcm1)*'~Port" then
Response.write ""
end if %>
<% If Handle="~Nikki white Rose Fal" then
Response.write ""
end if %>
<% If Handle="sapphire{MoT}~Y~branded" then
Response.write ""
end if %>
<% If Handle="SebastianUbarTotM/Koroba" then
Response.write ""
end if %>
<% If Handle="~katriona~{DSh}~R~~brand" then
Response.write ""
end if %>
<% If Handle="~blossom{HoD}" then
Response.write ""
end if %>
<% If Handle="nidawi{LD}Master's lil m" then
Response.write ""
end if %>
<% If Handle="lianna{HoD}-t" then
Response.write ""
end if %>
<% If Handle="--Roi Zin Nepharius--" then
Response.write ""
end if %>
<% If Handle="adrina{KOB}FW in punishm" then
Response.write ""
end if %>
<% If Handle="jartarika{XT-1}submitted" then
Response.write ""
end if %>
<% If Handle="Lapis ALtare/=Xavier Tri" then
Response.write ""
end if %>
<% If Handle="Xavier Triton/Lapis ALta" then
Response.write ""
end if %>
<% If Handle="lianna{HoD}-t" then
Response.write ""
end if %>
<% If Handle="Jicaque Koroba, RGW" then
Response.write ""
end if %>
<% If Handle="Drayzek Raine~Wanderer~" then
Response.write ""
end if %>
<% If Handle="suria{HoD}" then
Response.write ""
end if %>
<% If Handle=".~ leah ~Protected by Re" then
Response.write ""
end if %>
<% If Handle="lena{Tal-1}~R~~restricte" then
Response.write ""
end if %>
<% If Handle="-=Brackus VeilSide=--=Tr" then
Response.write ""
end if %>
<% If Handle="Marcus Civititas TrevisU" then
Response.write ""
end if %>
<% If Handle="TaladrenWeaponMaster/Sla" then
Response.write ""
end if %>
<% If Handle="willow{LJ}~R~TuchuckRGW" then
Response.write ""
end if %>
<% If Handle="‡†Jémmã Gîøvãnnì†‡" then
Response.write ""
end if %>

<% If Handle="///~*~ Keighly ~*~///" then
Response.write ""
end if %>
<% If Handle="Jah`Karr =|= Slaver =|=" then
Response.write ""
end if %>
<% If Handle="*~jade~{D*A}~ps~Pierced" then
Response.write ""
end if %>
<% If Handle="eden{HoD}Slaver House of" then
Response.write ""
end if %>
<% If Handle="suria{Ka'Less} House of" then
Response.write ""
end if %>
<% If Handle="Andarious MA/Lady Shalot" then
Response.write ""
end if %>
<% If Handle="Grodos Initiate" then
Response.write ""
end if %>
<% If Handle="~Ubar Jask Tong~/Malique" then
Response.write ""
end if %>
<% If Handle="~desdemona~ {PK-RGW}firs" then
Response.write ""
end if %>
<% If Handle="~Shanna/Ramer~UbaraWith" then
Response.write ""
end if %>
<% If Handle="lil hellion{A-Anox}~R~Br" then
Response.write ""
end if %>
<% If Handle="DarykFirst SwordCamp of" then
Response.write ""
end if %>
<% If Handle="||Bryce||/RayaUbarCamp o" then
Response.write ""
end if %>
<% If Handle="Vivica Moore" then
Response.write ""
end if %>
<% If Handle="RENEGADE..Ubar" then
Response.write ""
end if %>
<% If Handle="utopia{REN}*Y*" then
Response.write ""
end if %>
<% If Handle="kley{Pel} ~spirit sister" then
Response.write ""
end if %>
<% If Handle="phoenix" then
Response.write ""
end if %>
<% If Handle="-=Water of Life=-Saint O" then
Response.write ""
end if %>
<% If Handle="Onior Mercy Faith" then
Response.write ""
end if %>
<% If Handle="Sasha Magus Daughter of" then
Response.write ""
end if %>
<% If Handle="Macabre" then
Response.write ""
end if %>
<% If Handle="Dark ShadowRariusTuchuk" then
Response.write ""
end if %>
<% If Handle="-=Khepera Triton=-~Young" then
Response.write ""
end if %>
<% If Handle="~mia~{SQ}Ar, RGW" then
Response.write ""
end if %>
<% If Handle="bill{MaxJR}Koroba RGW" then
Response.write ""
end if %>
<% If Handle="Destiny Luirean A'Vernon" then
Response.write ""
end if %>
<% If Handle="Lapis Triton/Xavier Trit" then
Response.write ""
end if %>
<% If Handle="Sepiriz Omicron First E" then
Response.write ""
end if %>
<% If Handle="k'atiue{J}~restricted ca" then
Response.write ""
end if %>
<% If Handle="chelynne{SRT}His lil Hel" then
Response.write ""
end if %>
<% If Handle="SquallSecond SwordAR/RGW" then
Response.write ""
end if %>
<% If Handle="~Claire/=Maximus~In a St" then
Response.write ""
end if %>
<% If Handle="SquallGuard CITY of Ko" then
Response.write ""
end if %>
<% If Handle="Ã‡orwÃÃ±Â«FCÂ»Ãƒta_Ubar" then
Response.write ""
end if %>
<% If Handle="lil mina{KoB}" then
Response.write ""
end if %>
<% If Handle="-=.Khepera Triton.=-~You" then
Response.write ""
end if %>
<% If Handle="Anastasia CaldazarFunky" then
Response.write ""
end if %>
<% If Handle="Darius Dawson Wolf/=R. L" then
Response.write ""
end if %>
<% If Handle="ria{POCC}~Y~" then
Response.write ""
end if %>
<% If Handle="sanura{SWC}~R~Ubar's lil" then
Response.write ""
end if %>
<% If Handle="~Ubara Katrina Davio/Sha" then
Response.write ""
end if %>
<% If Handle="maggie{Citadel}RGW" then
Response.write ""
end if %>

<% If Handle="*~~shoshanna~~*~{POCC}~W" then
Response.write ""
end if %>
<% If Handle="Anastasia CaldazarFunky" then
Response.write ""
end if %>
<% If Handle="Rahveenah Fireheart Sist" then
Response.write ""
end if %>

<% If Handle="|||||||Tarik Atken||||||" then
Response.write ""
end if %>
<% If Handle="Tarik Atken/=Eve ValeInt" then
Response.write ""
end if %>
<% If Handle="maggie{Citadel}RGW" then
Response.write ""
end if %>

<% If Handle="Drak KloumBlack Eagle" then
Response.write ""
end if %>
<% If Handle="Charity Fireheart Proba" then
Response.write ""
end if %>
<% If Handle="adrina{KOB}RestrictedKor" then
Response.write ""
end if %>
<% If Handle="lisa protected escorted" then
Response.write ""
end if %>
<% If Handle="Jah`Karr =|= First Slave" then
Response.write ""
end if %>
<% If Handle="Cap Olav Shayburn~Southe" then
Response.write ""
end if %>
<% If Handle="^-^ mimpi ^-^ [[ Proper" then
Response.write ""
end if %>
<% If Handle="Marina" then
Response.write ""
end if %>
<% If Handle="That crazy old brujah†Si" then
Response.write ""
end if %>
<% If Handle="kley{Pel}~spirit sister" then
Response.write ""
end if %>
<% If Handle="Yuri Valentine" then
Response.write ""
end if %>
<% If Handle="Darius Dawson Wolf/R. L" then
Response.write ""
end if %>
<% If Handle="Joseph Kaufman" then
Response.write ""
end if %>
<% If Handle="Crystål Rose...Garou Abo" then
Response.write ""
end if %>
<% If Handle="~*Max DragonHeart/Blood" then
Response.write ""
end if %>
<% If Handle="*That crazy old brujah†S" then
Response.write ""
end if %>
<% If Handle="lu{KoB}chained to dias" then
Response.write ""
end if %>
<% If Handle="Justin AnoxHead Of The A" then
Response.write ""
end if %>
<% If Handle="Charity Fireheart Proba" then
Response.write ""
end if %>
<% If Handle="^Drayzek Raine^^FIRST SW" then
Response.write ""
end if %>
<% If Handle=">~*~Adrina Da'vio Scarle" then
Response.write ""
end if %>
<% If Handle="~katriona{DSh}~R~~brande" then
Response.write ""
end if %>

<% If Handle=" TacitusWarrior {Captive" then
Response.write ""
end if %>
<% If Handle="-=-Dravik Antilles-=--=-" then
Response.write ""
end if %>
<% If Handle="~shaaylee~{Ram/Sha}~Y~Ka" then
Response.write ""
end if %>
<% If Handle="Alaric ShadowenCaste of" then
Response.write ""
end if %>
<% If Handle="chamomile {KoB}wt" then
Response.write ""
end if %>
<% If Handle="lil hellion{A-Anox}~R~Ko" then
Response.write ""
end if %>
<% If Handle=">~*~^Innocent^^Beauty^~*~" then
Response.write ""
end if %>
<% If Handle="~katriona{DSh}~R~~brande" then
Response.write ""
end if %>



<% If Handle="_::

eath by Beauty :::_" then
Response.write ""
end if %>
<% If Handle="Traveler" then
Response.write ""
end if %>
<% If Handle="Anonymous" then
Response.write "I am not creative enough to think of a name please remove me'>"
end if %>
<% If Handle="///~*~ Keighly ~*~/// |" then
Response.write ""
end if %>
<% If Handle="ashtyn{DDW}~bellied~~CAG" then
Response.write ""

end if %>
<% If Handle="Wynter Valentine =SC=Sas" then
Response.write ""
end if %>
<% If Handle="kardelen{Rel}~R~ ~restr" then
Response.write ""
end if %>
<% If Handle="alinisa{WG}~Y~first danc" then
Response.write ""
end if %>
<% If Handle="~*Malique MA*~ *Ubara*Ve" then
Response.write ""
end if %>
<% If Handle="~kardelen~{Rel}~R~ ~res" then
Response.write ""
end if %>
<% If Handle="=amanda={RGW}E/everyones" then
Response.write ""
end if %>

Now as You can see each Handle Name and Response.write
I want to make it that the User can add the names to this file modb.asp
My question is how do I do that
I know it has to be writen to the file like this
<% If Handle="=amanda={RGW}E/everyones" then
Response.write ""
end if %>
the full code

JeremyG · Apr 9, 2002

First of all, let me make a suggestion to make your code alot easier to look at, and also easier to edit.

-----------------------------------------
Select Case handle
Case "~*WarGod MA*~ *Venna*RGW"
x = "admin"
Case "-=Head-Administrator=-"
x = "gold"
Case "Joseph Kaufman"
x = "00FF00"
(and so on)
End Select

If x = admin then
Response.write "<div><A href=""

http://www.realgoreanworld.com/enterypages/Venna.html";"><font

color='gold'></A>"
Else
Response.write ""
---------------------------------

Second, to write this out to a file, or append an existing ASP file, you will need to use a FileSystemObject....which is kind of alot to explain here. Try this link:

http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject.html

--------------------------------

And Finally, let me suggest that you do not do build ASP pages this way. All of that text parcing and IF statements can be taxing on your server.

I would recommend keeping a simple text file in the form of:
"~*WarGod MA*~ *Venna*RGW" = "admin"
"-=Head-Administrator=-" = "gold"
"Joseph Kaufman" = "00FF00"
etc etc

Then you can have your ASP page read this file to determine how each handle would get colored. Theres a variety of ways that you can do this, for your example I think it would be best to read a text file line by line, and compare the handle to the first field of the text file until it finds a match.

derren · Apr 9, 2002

For Mawargod's sake! Use a database! This will keep all of your user handles listed, along with the group that they belong to (I am assuming that the colour denotes which group they are in). You could even add a field with the text value in. Then simply query the database with the current handle and write the code directly in.

I'm off now to get help for the repetitive strain injury that I recieved from scrolling through all your code! Derren
[Mediocre talent - spread really thin]

MAWarGod · Apr 9, 2002

JeremyG
on the print our page My code looks like this so I would have to edit it as well to do it that why.
<td width="40%" height="13" VALIGN=TOP>
<div>
<% Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject&quot

Set ReadStream = MyFileObj.OpenTextFile("c:\user\chatuser.2035",1,false)
x=1
response.write ""
while not ReadStream.AtEndOfStream
Read=ReadStream.Readline
NameLegnth=Len(Read)
ColonPosition=InStr (Read, ":&quot

Name=(NameLegnth-ColonPosition)
Handle=Right(Read, Name)
Response.write ""
%>

<% Response.write " " & Handle & "  "
If x=3 then
Response.write ""
x=0
End If
x=x+1
Wend
Response.write ""
Set ReadStream=Nothing
%>

note the

<% Response.write " " & Handle & "  "
how would I get the case to print out, see each
someone wants a name I have to type it out well as My site grows huh well it takes alot of My time.

I want the user to be able to add the name

MAWarGod · Apr 9, 2002

I have a cgi userfile that makes a file like this
dgdfgd #00FF00
velvet{JTcm1} #00FF00
Anonymous #00FF00
Ramer #00FF00
Me #00FF00
Beth Stregha Witch #00FF00
| | | Tovah Heratic | #00FF00
Rouge #00FF00

and have asked over and over how to get it to print out
to the page

MAWarGod · Apr 9, 2002

derren
What is Your suggestion how would I go about doing as You say?

BBirkett · Apr 9, 2002

MAWarGod:

What derren is saying, is that you could create a small database table with a couple of fields....

Table - User

ID - Long (PK)
Username - String
DisplayColor - String

Then add all your users into the user database table...

1
"Ramer"
"00FF00"

2
"Me"
"00FF00"

etc

For databases you could use anything from Access to MySql (free), or SQL Server 2000.

If you don't know how to use any of these databases, you will need to pick up a text book nearest you now, because it is definitely something you will need to know to build online portals.

If you do know... then simply when somebody logs in with a username... lookup their display color in the database...

ie.

When somebody logs in...

sql = "select username, displaycolor from user where username = '" & varFromFormThatContainsUsername & "';"

Set RS = DataConn.Execute(sql)

Now, RS contains the displaycolor to use for your display...

Response.write "<font color='" & RS("displaycolor&quot

& "'>" & RS("username&quot

& ""

This type of method that derren is talking about is almost completed code! That means the entire 500 lines of your code can be a tiny bit bigger than i have just given you!

ie. It will look up the users color and display it, nobody who it is! and it is extensible... you have a new user, just add them to your database, add their appropriate color, and when they log in, they will get their color! You wouldn't need to add to the code ever again!

Even if you don't understand the code, you should be able to understand the benefits now of using a database method instead.

Good luck

Brett Birkett B.Comp
Systems Analyst

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

how does one write a Response.write to a file 5

MAWarGod

Programmer

AncientTiger

Programmer

MAWarGod

Programmer

Turkbear

Technical User

MAWarGod

Programmer

JeremyG

Programmer

derren

Programmer

MAWarGod

Programmer

MAWarGod

Programmer

MAWarGod

Programmer

BBirkett

Programmer

Similar threads

Part and Inventory Search

Sponsor