I am now able to view data in an ASP page after changing the permission for Authenticated Users that I found here http://forums.iis.net/thread/1422841.aspx .
Here is the trouble I am having now...
When ever I try to update a database I get the same 500 error I had before when I was just trying to view the data.
Are there some special permissions or securities in Vista and IIS 7 that is stopping me?
Can anyone help?
Below is the script I am using.
<%
' Get
' -------------------------------------------------------------------------------------------------
index=Request.Form("index")
bYear=Request.Form("bYear")
bMonth=Request.Form("bMonth")
bDay=Request.Form("bDay")
eYear=Request.Form("eYear")
eMonth=Request.Form("eMonth")
eDay=Request.Form("eDay")
header=Request.Form("header")
subHeader=Request.Form("subHeader")
content=Request.Form("content")
published=Request.Form("published")
' Check
' -------------------------------------------------------------------------------------------------
header = replace(header,"'","'")
subHeader = replace(subHeader,"'","'")
content = replace(content,"'","'")
bDate=""&bMonth&"/"&bDay&"/"&bYear&""
eDate=""&eMonth&"/"&eDay&"/"&eYear&""
if published<>"yes" then
published="no"
end if
' Create DB connection
'---------------------------------------------------------------------------------------
set myConnection = createobject("ADODB.connection")
myConnection.open "cms_goretti"
' Change
' -------------------------------------------------------------------------------------------------
myCommand="UPDATE admissionsEventsTable SET "
myCommand=myCommand & "bYear = " & bYear & ","
myCommand=myCommand & "bMonth = " & bMonth & ","
myCommand=myCommand & "bDay = " & bDay & ","
myCommand=myCommand & "eYear = " & eYear & ","
myCommand=myCommand & "eMonth = " & eMonth & ","
myCommand=myCommand & "eDay = " & eDay & ","
myCommand=myCommand & "header = '" & header & "',"
myCommand=myCommand & "subHeader = '" & subHeader & "',"
myCommand=myCommand & "content = '" & content & "',"
myCommand=myCommand & "bDate = '" & bDate & "',"
myCommand=myCommand & "eDate = '" & eDate & "'"
myCommand=myCommand & " WHERE index = " & index & ""
set myRecordset = createobject("ADODB.recordset")
myRecordset.open myCommand,myConnection
set myRecordset = nothing
' Close db connection
' -------------------------------------------------------------------------------------------------
myConnection.close
set myConnection = nothing
' Redirect
' -------------------------------------------------------------------------------------------------
Response.Redirect "../interface/index.asp"
%>