Stupid Questen :(

[Pebbycat]

This must be a very stupid questen:

I have made over 10 html pages with the same left and right side of the page the same, menu, next match & Practices, i was woundering if their is anyway to make a cgi script that will change all menu, next patch & practices things other then changing each html page?, a bit like newspro, but insted of news it you can change menu and others

[JoshT]

You might be able to use Server-Side Includes.

[scoutt]

I'm sure you could. but you would be better off using SSI like Josh said. a lot less hassle

[sail3005]

to use them... <!--#include file="directory/file.txt"-->

[beachbum]

Ok
I know that this isnt html but just in case it is useful. I threw together a little vb program that allows me to change stuff in all my web pages in one go instead of doing it thru html. This is more for the design phase but may be applicable if u change the individual pages and then reload to ur server.
Regards
Stuart

FORM CONTAINS;
1 Filelistbox, 2 command buttons and 1 label control

Dim MyPath As String
Dim FileLoop As Long
Dim MyString As String
Dim MyFile As String
Dim MyLen As Long
Dim MyFind As String
Dim MyReplace As String
Dim MyCopy As String
Dim MyLenCheck As Double
Dim MyCounter As Long
 
Private Sub Form_Load()
    MyPath = "C:\My Documents\Webpage" 'Ur path
    
    File1.Path = MyPath'Set the path of the file list box
    File1.Pattern = "*.htm"'And type of files
    FileLoop = File1.ListCount'How many files
    MyCounter = 0
    File1.ListIndex = MyCounter
End Sub
 
Private Sub Command1_Click()
    File1.ListIndex = MyCounter
    
    MyFile = MyPath & "\" & File1.List(MyCounter)
    MyLen = FileLen(MyFile)
    
    'Open the applicable page
    Open MyFile For Input As #1
    MyString = Input(MyLen, #1)
    Close #1
    
    'What u want to change
    MyFind = "string to change from"
    MyReplace = "string to change to"
    
    'Replace 'find' with 'replace'
    MyCopy = Replace(MyString, MyFind, MyReplace)
    'Check to see that any items were found
    MyLenCheck = (Len(MyCopy) - Len(MyString)) / (Len(MyReplace) - Len(MyFind))
    Label1 = MyLenCheck
 
    Command2.SetFocus
End Sub
 
Private Sub Command2_Click()
    'Write the changed page back
    Open MyFile For Output As #1
    Print #1, MyCopy
    Close #1
    
    MyCounter = MyCounter + 1
    Command1.SetFocus
    If MyCounter >= FileLoop Then Command2.Enabled = False
End Sub

[sail3005]

cool, good idea

[chrismitchell]

Cheers beachbum you just answered a question that I was going to ask today... Thanks for that!

[sail3005]

yeah, i am currently making something like this, with a web interface.