| Line 917... |
Line 917... |
| 917 |
newText = AddAnchors(newText)
|
917 |
newText = AddAnchors(newText)
|
| 918 |
|
918 |
|
| 919 |
'Elrey Ronald
|
919 |
'Elrey Ronald
|
| 920 |
newText=replaceListPattern(newText, " *", "<ul>", "</ul>", "<li> ", "</li>")
|
920 |
newText=replaceListPattern(newText, " *", "<ul>", "</ul>", "<li> ", "</li>")
|
| 921 |
newText=replaceListPattern(newText, " :*", "<ol>", "</ol>", "<li> ", "</li>")
|
921 |
newText=replaceListPattern(newText, " :*", "<ol>", "</ol>", "<li> ", "</li>")
|
| 922 |
newText=replaceListPattern(newText, " 1.", "<ol>", "</ol>", "<li> ", "</li>")
|
922 |
newText=replaceListPattern(newText, " 1.", "<ol class='nlist'>", "</ol>", "<li> ", "</li>")
|
| 923 |
|
923 |
|
| 924 |
'Elrey Ronald - more convenient bullet list
|
924 |
'Elrey Ronald - more convenient bullet list
|
| 925 |
newText=replaceListPattern(newText, " *", "<ul>", "</ul>", "<li> ", "</li>")
|
925 |
newText=replaceListPattern(newText, " *", "<ul>", "</ul>", "<li> ", "</li>")
|
| 926 |
newText=replaceListPattern(newText, " :*", "<ol>", "</ol>", "<li> ", "</li>")
|
926 |
newText=replaceListPattern(newText, " :*", "<ol>", "</ol>", "<li> ", "</li>")
|
| 927 |
newText=replaceListPattern(newText, " 1.", "<ol>", "</ol>", "<li> ", "</li>")
|
927 |
newText=replaceListPattern(newText, " 1.", "<ol class='nlist'>", "</ol>", "<li> ", "</li>")
|
| 928 |
|
928 |
|
| 929 |
'Elrey Ronald - Table Pattern
|
929 |
'Elrey Ronald - Table Pattern
|
| 930 |
newText=replaceListPattern(newText, "||^!|^|!^!!", "<table border=1 class=TableClass>", "</table>", "_tmp_0^_tmp_1^_tmp_2^_tmp_3", "</td></tr>")
|
930 |
newText=replaceListPattern(newText, "||^!|^|!^!!", "<table border=1 class=TableClass>", "</table>", "_tmp_0^_tmp_1^_tmp_2^_tmp_3", "</td></tr>")
|
| 931 |
|
931 |
|
| 932 |
newText=replaceTableColumnPattern(newText)
|
932 |
newText=replaceTableColumnPattern(newText)
|
| Line 1246... |
Line 1246... |
| 1246 |
|
1246 |
|
| 1247 |
If gDataSourceFile <> gDefaultHomePage Then
|
1247 |
If gDataSourceFile <> gDefaultHomePage Then
|
| 1248 |
Dim pwd
|
1248 |
Dim pwd
|
| 1249 |
If Request.QueryString("pw") <> gPassword Then
|
1249 |
If Request.QueryString("pw") <> gPassword Then
|
| 1250 |
Response.Write("Sorry but the Database (db) requested does not exist, or may not be writable.<br>Correct password must be sent to create it.")
|
1250 |
Response.Write("Sorry but the Database (db) requested does not exist, or may not be writable.<br>Correct password must be sent to create it.")
|
| - |
|
1251 |
Response.Write("<br>Hint. Add &pw=" & gPassword & " to the URL.")
|
| 1251 |
Response.Write("<p>Folder:" & f1 & ".")
|
1252 |
Response.Write("<p>Folder:" & f1 & ".")
|
| 1252 |
Response.Write("<br>DataBase:" & gDataSource & ".")
|
1253 |
Response.Write("<br>DataBase:" & gDataSource & ".")
|
| 1253 |
Response.End
|
1254 |
Response.End
|
| 1254 |
End If
|
1255 |
End If
|
| 1255 |
End If
|
1256 |
End If
|