Printer venlig side med ASP strenge
Hejsa.Jeg har et kæmpe problem. Jeg skal bruge en printervenlig side, der genereres automatisk ved klik på link. Ikke noget problem at lave - problemet opstår når min side er opbygget af strenge i ASP <%=StrTest%> osv. Jeg kan ikke få mine variabler med over i den nye printvenlige side.
Her er min kode:
Oprindelig fil:
<%
aURL=request.serverVariables("PATH_INFO")
pDom=request.servervariables("HOST")
pPath=pDom&aUrl
test2 = "Dette er en test!!"
%>
<!-- PrintesIkke -->
Dette kan ikke printes...<br>
<br>
<!-- /PrintesIkke -->
Print dette...<br>
<br>
<%=test2%>
<!-- PrintesIkke -->
<table width="200%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="middle"><a href="print.asp?page=<%=pPath%>">Printervenlig
version</a></td>
</tr>
</table>
<!-- /PrintesIkke -->
print.asp:
<%
Dim page, text, filesys
page = request.querystring("page")
Sub ReplaceTxt(what,door)
Dim regularExpressionObject
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = what
.IgnoreCase = True
.Global = True
End With
text = RegularExpressionObject.Replace(text,door)
Set RegularExpressionObject = nothing
End Sub
'opening the page
Set FileSys = server.createobject("scripting.FileSystemObject")
text = filesys.openTextfile(server.mappath(page)).readall
call replacetxt("<!-- PrintesIkke -->","<!--")
call replacetxt("<!-- /PrintesIkke -->"," -->")
'writing the text-only version
response.write text
%>
Hvad pokker gør jeg galt???
