Beste,
Ik heb een website draaien maar wens die onder te brengen bij een ander hostingsbedrijf waar ik nog website heb lopen, maar dit is de enige onder asp...
Nu bots ik op het probleem dat mijn access bestand 2010 moet zijn.
Dit bestand heb ik ondertussen aangepast naar 2010.
Maar ik moet echter ook de string code wijzigen in verschillende webpagina's en hier weet ik geen raad.
De maker van mijn website kan ik niet meer bereikbaar dus ben ik genoodzaakt om via een forum hopelijk een oplossing te vinden.
dit is de code
<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
dim jaar
if request("jaar")="" then
jaar = year(date)
else
jaar = request("jaar")
end if
database_path = Request.ServerVariables("PATH_TRANSLATED")
PathArray = Split(database_path, "", -1, 1)
database_path = Replace(Request.ServerVariables("PATH_TRANSLATED"),PathArray(UBound(PathArray)),"data\gegevens.mdb")
'open connection
set db=server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq="& database_path &";Uid=Admin;Pwd="
Set rs = server.createobject("adodb.recordset")
%>
na wat speurwerk ben ik er achter gekomen de extensie moet veranderen in de code zie onder maar ik moet nog dingen wijzigen en hierin zoek ik raad.
Bedankt alvast voor de hulp
deze aanpassingen " rood" heb ik al gedaan ondertussen
<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
dim jaar
if request("jaar")="" then
jaar = year(date)
else
jaar = request("jaar")
end if
database_path = Request.ServerVariables("PATH_TRANSLATED")
PathArray = Split(database_path, "", -1, 1)
database_path = Replace(Request.ServerVariables("PATH_TRANSLATED"),PathArray(UBound(PathArray)),"data\gegevens.accdb")
'open connection
set db=server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.accdb)};Dbq="& database_path &";Uid=Admin;Pwd=;"
Set rs = server.createobject("adodb.recordset")
%>
Ik heb een website draaien maar wens die onder te brengen bij een ander hostingsbedrijf waar ik nog website heb lopen, maar dit is de enige onder asp...
Nu bots ik op het probleem dat mijn access bestand 2010 moet zijn.
Dit bestand heb ik ondertussen aangepast naar 2010.
Maar ik moet echter ook de string code wijzigen in verschillende webpagina's en hier weet ik geen raad.
De maker van mijn website kan ik niet meer bereikbaar dus ben ik genoodzaakt om via een forum hopelijk een oplossing te vinden.
dit is de code
<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
dim jaar
if request("jaar")="" then
jaar = year(date)
else
jaar = request("jaar")
end if
database_path = Request.ServerVariables("PATH_TRANSLATED")
PathArray = Split(database_path, "", -1, 1)
database_path = Replace(Request.ServerVariables("PATH_TRANSLATED"),PathArray(UBound(PathArray)),"data\gegevens.mdb")
'open connection
set db=server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq="& database_path &";Uid=Admin;Pwd="
Set rs = server.createobject("adodb.recordset")
%>
na wat speurwerk ben ik er achter gekomen de extensie moet veranderen in de code zie onder maar ik moet nog dingen wijzigen en hierin zoek ik raad.
Bedankt alvast voor de hulp
deze aanpassingen " rood" heb ik al gedaan ondertussen
<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
dim jaar
if request("jaar")="" then
jaar = year(date)
else
jaar = request("jaar")
end if
database_path = Request.ServerVariables("PATH_TRANSLATED")
PathArray = Split(database_path, "", -1, 1)
database_path = Replace(Request.ServerVariables("PATH_TRANSLATED"),PathArray(UBound(PathArray)),"data\gegevens.accdb")
'open connection
set db=server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.accdb)};Dbq="& database_path &";Uid=Admin;Pwd=;"
Set rs = server.createobject("adodb.recordset")
%>