website verplaatsen van hosting

Status
Niet open voor verdere reacties.

EddyDC

Nieuwe gebruiker
Lid geworden
20 jun 2018
Berichten
3
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 ben benieuwd welke waarde database_path heeft

Code:
PathArray = Split(database_path, "", -1, 1)

Splitsen met niets kan nl. niets opleveren
 
Splitsen?

Beste,

Bedankt voor uw reactie maar begrijp niet goed uw antwoord
PathArray = Split(database_path, "", -1, 1)

dit werkt correct op mijn huidige hosting?
Mss gemakkelijker het betreft volgende website die ik wil verplaatsen www.vakantieaanzee.be

mvg
Eddy
 
opgelost

hierbij de oplossing gevonden

{Microsoft Access Driver (*.mdb), *.accdb};Dbq="& database_path &";Uid=Admin;Pwd="

de webpagina's zijn nu zichtbaar

Echter bots ik nu op het versturen van mijn ingevuld formulier "cdo.message" krijg daar nu deze foutmelding


CDO.Message.1 error '80040213'

The transport failed to connect to the server.

deze wijzigingen heb ik al doorgevoerd
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mijnhostingpartner.nl" was normaal "localhosting"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*****@******" mijn aangemaakt emailadres
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "***********" en paswoord

Set myMail = CreateObject("CDO.Message")
myMail.From = Trim(Request("email"))
myMail.To = "*****@******"
myMail.Subject = "VAKANTIE AAN ZEE >> AANVRAAG [" & Now() & "]"
myMail.TextBody = body & vbNewLine & vbNewLine
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mijnhostingpartner.nl"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*****@******"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "***********"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail = nothing

Bedankt voor de hulp

mvg
Eddy
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan