Im setting up a site that is for students (and the big selling point is that it is written BY students). one of the sections will have TV listings [because TV is very important to us Students :) ] and the best way I can think about doing it is to set up a database for the weeks television and then have the site dynamically display what is on for each channel (and don't worry, us Brits only get 5 channels!!). Ideally, I'd like to design the database in MSAccess, and then have someway of porting it to the web page.
I really have no idea where to start, I can get the database in access no problem, but where my problem lies is the challenge in getting it from Access to the web page. Any help at all will be hugely appreciated! Rich
Channel, Time, Title, description
I haven't use Access in a while, but I used to export the database to a pipe-delimited flatfile, then upload that. I may have had to run it through Excel first.
<aside>What is the ascii code for the pipe-line bar, and how do you get it on a keyboard</aside>
Take a look at hotscripts [hotscripts.com]. Perhaps someone else has experience with a good free db script.
Have you written ASP before?
Using VB Script to write the ASP you can enter the data in the DB from an online form, then select it from the DB and have it form a table on a page specified.
I am pretty sure you will find some scripts that will be able to help you.
Note: Access is not designed to handle high-volume pages. If you are getting more than a few simultaneous hits on the web page, it is not going to work.
<table>
<tr style="background-color:#CCCC99">
<th align="center">VIE Volume</th>
<th align="left">Collection</th>
<th align="left">Title</th>
<th align="center">Status</th>
</tr>
<%
Dim rst
Dim strSource
Dim lngRowConst adCmdTable = 2
Set rst = Server.CreateObject("ADODB.RecordSet")
strSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/_private/jackvance.mdb") & ";Persist Security Info=False"
Call rst.Open("qryAcquiredWeb", strSource)
lngRow = 1
Do Until rst.EOF
If Not Response.IsClientConnected Then
Exit Do
End If
If lngRow Mod 2 = 0 Then
Call Response.Write("<tr style=""background-color:#b0c4de"">")
Else
Call Response.Write("<tr style=""background-color:#c0c0c0"">")
End If
Call Response.Write("<td align=""center"">" & rst.Fields.Item("Number").Value & "</td>")
Call Response.Write("<td><i>" & rst.Fields.Item("Collection").Value & "</i></td>")
Call Response.Write("<td>" & rst.Fields.Item("PublishedAs").Value & "</td>")
Call Response.Write("<td align=""center"">" & rst.Fields.Item("Status").Value & "</td>")
Call Response.Write("</tr>")
lngRow = lngRow + 1
Call Response.Flush()
rst.MoveNext
Loop
Call rst.close
Set rst = Nothing
%>
</table>