VBScript equivalent of Perl heredoc?

turchinc · Feb 1, 2002

Hi,
is there a way to emulate perl's heredoc functionality in VBScript?

Basically what I want to do is:

Code:

Response.Write(<<EOF)
<h1>header</h1>
body text...
and finally...

EOF

so that everything between Response.Write and EOF gets printed. I can not write another line of

Code:

strOut = strOut & &quot;my next line of code&quot;

(but I fear I must...)

any tips, help etc. would be appreciated!

Thanks
--chris

SHARKY99 · Feb 1, 2002

I don't think you can but just write it in HTML

ie.

<%@ Language=VBScript %>
<% Option Explicit %>
<%
dim dbSha, rsCard, vSql, TbList
TbList=Array("PLAYER","TEAM","YEAR","BRAND","SET","INSERT","ODDS","CARD #","SERIAL #","COMPLETE SET AVAILABLE","JOUEUR","EQUIPE","ANNÉE","COMPAGNIE","SÉRIE","INSÉRÉE","RATIO","CARTE #","# SÉRIE","SÉRIE COMPLÈTE DISPONIBLE&quot

set dbSha=server.createObject("ADODB.Connection&quot

set rsCard=server.createObject("ADODB.Recordset&quot

dbSha.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("..&quot

& "/db/db99.mdb"
vSql="SELECT cards.* FROM cards WHERE (((cards.player)='" & Request.Form("txtplyr&quot

& "'));"
rsCard.open vSql,dbSha,1,2,1
%>
<html>
<head>
<title>-----Results-----</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="indxstyl.css" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style>
</head>

<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" text="#000000">
<div id="Layer1" style="position:absolute; left:547px; top:1px; width:27px; height:23px; z-index:1; visibility: visible">
<div align="center"><a href="#" onClick="MM_callJS('window.close()')">X</a></div>
</div>
<%while not rsCard.EOF %>

and so on...

when it's html write normal
when it's ASP write between <% write here %>

I don't know why you need the "block print" of perl????

If i'm wrong, sorry i didn't get the question..... Have Fun...

Sharky99 >

:O>

turchinc · Feb 4, 2002

Hi, thanks for the reply!

The problem is that I am inside of a function that is generating code which it then returns to the main caller in the ASP execution process. I need to save up all of the code I am generating and return it as a string (example: generating a table with different cell values each time etc...)

actually, my example I submitted was a poor one, what I really need to do is something like

Code:

function GenerateTable(intKey)
   strFunctionReturn = << EOF

   (html skeleton code goes here 
   interspersed with code to generate
   the custom values, but ultimately it
   must all go into the variable 
   strFunctionReturn) 

EOF

  ' then I return this to the caller:
  GenerateTable = strFunctionReturn

End Function

Is there a way that I could use your example inside of my function as well? That would be cool.

Regards,
--chris

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!

VBScript equivalent of Perl heredoc?

turchinc

Programmer

SHARKY99

Programmer

turchinc

Programmer

Similar threads

Part and Inventory Search

Sponsor