Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
Posted: Sun Dec 03, 2006 7:44 am Post subject:
arash wrote:
سوال های تو اچ تی ام ال هست و ربطی به وی بی نداره
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=14
Public Sub OpenReport()
If ReportFile <> vbNullString And intFileNum = 0 Then
If FileExists(ReportFile) Then
Kill ReportFile
End If
intFileNum = FreeFile
Open ReportFile For Append As #intFileNum
Print #intFileNum, "<html><head>"
If Title <> vbNullString Then
Print #intFileNum, "<title>" & Title & "</title>"
End If
If CssFile <> vbNullString Then
Print #intFileNum, "<link rel=""stylesheet"" href="" file:///" & CssFile & """ type=""text/css"">"
End If
Print #intFileNum, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows"">"
Print #intFileNum, "<script type=""Text/JavaScript"" language=""JavaScript"">"
Print #intFileNum, "<!--"
Print #intFileNum, "pageno = 1;"
Print #intFileNum, "//-->"
Print #intFileNum, "</script>"
Print #intFileNum, "</head>"
Print #intFileNum, "<body><div dir=""rtl"">"
If strHeader <> vbNullString Then
Print #intFileNum, strHeader
End If
End If
End Sub
All times are GMT + 3.5 Hours Goto page Previous1, 2
Page 2 of 2
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum