Just nu i M3-nätverket
Gå till innehåll

snälla hjälp mig!


krillenummer1

Rekommendera Poster

krillenummer1

jag har gjort en gästbok som funkar utmärkt på min dator men när jag ska lägga ut den på en webserver, som funkar med asp, så går det inte, det blir något fel...?

Jag kan skicka filerna till er om ni tror att ni kan hjälpa mig... Känner ingen som pysslar med webdesign, förutom mig själv och jag har bara precis nyligen börjat lära mig asp. Tack för hjälpen!

 

jag skriver texten i den filen som jag skrev nedan... <skicka.asp>

 

<% Dim Obj, TS

 

Set Obj = CreateObject("Scripting.FileSystemObject")

 

If Obj.FileExists("data.txt") = False Then

 

Set TS = Obj.CreateTextFile("data.txt", 8)

 

Else

 

Set TS = Obj.OpenTextFile("data.txt", 8)

 

End If

 

TS.WriteLine Request.Form("namn")

TS.WriteLine Request.Form("hemsida")

TS.WriteLine Request.Form("annons")

 

TS.Close %>

 

Följande uppgifter har nu lagts till:<p>

 

Namn: <b><%=Request.Form("namn")%></b><br>

Hemsida: <b><%=Request.Form("hemsida")%></b><br>

Annonstext: <b><%=Request.Form("annons")%></b><p>

 

</div>

[inlägget ändrat 2002-08-10 18:32:10 av krillenummer1]

Länk till kommentar
Dela på andra webbplatser

Får du något felmeddelande? (har du någon "on error resume next" så ta bort den så att du ser eventuella fel)

 

Det kan vara så att du inte har rättigheter att skapa filen. Kontakta de som har hand om webbservern.

 

Ciao,

Anders

 

 

Länk till kommentar
Dela på andra webbplatser

Vad är heter webhotellet?

Stödjer den TextStreamObject?

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser

krillenummer1

ActiveX component can't create object: 'Scripting.FileSystemObject'

 

/k/krillenummer1/skicka.asp, line 38

 

det felet är det enda jag får...

vad är onError resume next?

 

Länk till kommentar
Dela på andra webbplatser

Skapar du/skriver du till textfilen i db-mappen? Tror det är enda mappen på brinkster du får skriva till?

 

--

.Weyland

 

2. Everything around us can be represented and understood through numbers.

 

Länk till kommentar
Dela på andra webbplatser

Du lägger väl helt enkelt textfilen i db-mappen? Å ändrar sökvägarna till textfilen typ

 

If Obj.FileExists("/db/data.txt") = False Then

 

.. i övrigt finns det inga asp-servrar som fungerar bra som är gratis - av naturliga skäl. Brinkster är det närmsta du kan komma såvitt jag förstått. Någon du känner, eller i detta forum, kanske har lust att upplåta lite serverutrymme till dig om verkligen inte vill betala för något som normalt kostar pengar...

 

--

.Weyland - vill ha en ny bil.. med V8.. utan reklam, och självklart gratis.

 

2. Everything around us can be represented and understood through numbers.

 

Länk till kommentar
Dela på andra webbplatser

krillenummer1

okej, vet du någon som är billig och bra?

 

Tack så mycket för din hjälp. Jag har precis börjat förstå lite mer om asp och sånt...

 

Länk till kommentar
Dela på andra webbplatser

Bra vet jag, dock inte billigast. Jag tror det varit fler trådar om detta, så pröva söka lite på billigt webhotell?

 

Är övertygad om att du får fler förslag i den här tråden oxå btw :)

 

---

 

Själv kör jag NetIntense (http://www.netintense.com ) som i princip verkar dela utrustning med Ballou, vilket förstås är bra och stabilt. Helt ok pris om man delar domänen med ett par vänner åtminstone.

 

Supporten svarar dygnet runt, brukar få svar på mina frågor (om rättigheter å konton oftast) inom fem minuter på hur udda tider som helst, som helgnätter eller tidiga vardagsmornar (alltså för femtiden ;).

 

Åså fett med bandbredd, viktigt för mig som BBB-förespråkare - instant upload/download. Karin kör med Loopia (uppsagt) och det är en pina att se en databasfil på ett par MB laddas ner på över en minut, när det borde ta ett par sekunder på sin höjd :)

 

--

.Weyland

 

2. Everything around us can be represented and understood through numbers.

 

Länk till kommentar
Dela på andra webbplatser

krillenummer1

okej, tack så mycket, ska kolla upp det.

men där hade den koden som jag skrev från början funkat tror du?

 

Länk till kommentar
Dela på andra webbplatser

Ehh...felet på ditt problem är enkelt. Byt ut "data.txt" mot Server.Mappath("data.txt"). Lite dåligt av IDG Webstudio att de inte skriver det i koden. Koden blir således:

<%
Dim Obj, TS

Set Obj = CreateObject("Scripting.FileSystemObject")

If Obj.FileExists(Server.Mappath("data.txt")) = False Then

Set TS = Obj.CreateTextFile(Server.Mappath("data.txt"), 8)

Else

Set TS = Obj.OpenTextFile(Server.Mappath("data.txt"), 8)

End If

TS.WriteLine Request.Form("namn")
TS.WriteLine Request.Form("hemsida")
TS.WriteLine Request.Form("annons")

TS.Close %>

Följande uppgifter har nu lagts till:<p>

Namn: <b><%=Request.Form("namn")%></b><br>
Hemsida: <b><%=Request.Form("hemsida")%></b><br>
Annonstext: <b><%=Request.Form("annons")%></b><p>

Tänk också på att bara använda Dim Obj, TS 1 gång.

 

Naturligtvis vill jag reservera mig för eventuella fel.

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

[inlägget ändrat 2002-08-10 19:58:30 av Kristianstad]

Länk till kommentar
Dela på andra webbplatser

krillenummer1

Tack så hemskt mycket för all din hjälp men tyvärr så fick jag ett helt nytt felmeddelande så jag ska försöka fixa en ny plats där jag kan ha mina asp-filer. Du vet möjligtvis inte ett billigt ställe?

Tack så mycket för hjälpen!

 

Länk till kommentar
Dela på andra webbplatser

http://www.loopia.se är väl relativt bra och billig - stödjer ASP!

 

du känner inte till någon annan asp server som är gratis som också är bättre?

Nej, Brinkster är den bästa!

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser

ActiveX component can't create object: 'Scripting.FileSystemObject'

 

Detta meddelande berättar för dig av webservern inte kan skapa en instans av FileSystemObject.

 

Alltås på ren svenska, du kan inte använda denna komponent på den servern, det kan vara så att den är borttagen eftersom man kan ställa till med rätt stor skada med FSO om webserverns säkerhet inte är rätt inställd. Så det är nog många webhotell som har tagit bort den, eller missat säkerheten vilket gör att man iprincip kan radera hela webhotellets disk.

 

- Magnus

-----------------------------------------------------

ju mer jag lär mig ju mer inser jag så lite jag kan

 

Länk till kommentar
Dela på andra webbplatser

loopia är värdelösa, har ingen support helger, ger knappt ut någon info för driftstopp, deras servrar 'startas om av övervakningssystemet när minnesläckage uppstår' - synd bara att det sker nästan varje kväll å tar 5-10min utan att dom verkar bry sig om att nagla dit orsaken... personliga erfarenheter dock. Åså var/är det pinsamt långsamt, åtminstone vid ftp-överföringar :(

 

--

.Weyland

 

2. Everything around us can be represented and understood through numbers.

 

Länk till kommentar
Dela på andra webbplatser

krillenummer1

denna koden du skickade mig funkade perfekt men då funkade inte denna koden, skulle någon kunna hjälpa mig med den?

 

<% Dim Obj, TS, Namn, Adress, Hemsida, Annons

 

Set Obj = CreateObject("Scripting.FileSystemObject")

Set TS = Obj.OpenTextFile("data.txt")

 

Do Until TS.AtEndOfLine

 

Namn = TS.ReadLine

Hemsida = TS.ReadLine

Annons = TS.ReadLine %>

 

Namn: <%=Namn%><br>

Hemsida: <%=Hemsida%><br>

Vad <%=Namn%> skrivit: <%=Annons%><p>

 

<% Loop

TS.Close %>

 

Länk till kommentar
Dela på andra webbplatser

Hej krillenummer1!

Du gör samma nybörjarfel som innan! Du har fel adress till data.txt. Använd Server.Mappath("data.txt") istället så retunerar den var i servern data.txt ligger. Koden blir således:

<% Dim Obj, TS, Namn, Adress, Hemsida, Annons

Set Obj = CreateObject("Scripting.FileSystemObject")
Set TS = Obj.OpenTextFile(Server.Mappath("data.txt"))

Do Until TS.AtEndOfLine

Namn = TS.ReadLine
Hemsida = TS.ReadLine
Annons = TS.ReadLine %>

Namn: <%=Namn%><br>
Hemsida: <%=Hemsida%><br>
Vad <%=Namn%> skrivit: <%=Annons%><p>

<% Loop 
TS.Close %>

Lycka till!

 

/ Kristoffer

Windows kunde inte hitta något tangentbord. Tryck F1 för att försöka igen eller F2 för att avbryta.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...