Just nu i M3-nätverket
Jump to content

AspUtrymme


jeja2000

Recommended Posts

Gunnar Slott

Hmmm...

På felmeddelandet verkar det som om du försöker öppna en databas. Har verkligen servern en odbc koppling för din databas? Annars kan det inte skapa det object som krävs.

 

//Gunnar

Link to comment
Share on other sites

nopes jag försöker inte öppna nån databas jag kan skicka koden

kan ngn hjälpa mig?

 

Den är här:

<HTML>

<HEAD>

<TITLE>Startsidan för Crash</TITLE>

<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<LINK rel="stylesheet" href="style.css" type="text/css">

</HEAD>

 

<BODY bgcolor="#FFFFFF">

<TABLE width="100%" border="0" bgcolor="teal">

<TR align="left" valign="top">

<TD colspan="2" height="97"><MARQUEE><IMG src="val.gif" width="713" height="89" align="top"></MARQUEE></TD>

</TR>

<TR>

<TD width="16%" align="left" valign="top">

<DIV id="lanktexten" style="position:absolute;visibility:hidden;; left: 31px"></DIV>

<SCRIPT language="javascript">

<!--This is one of many scripts which are available at: *---

//--http://www.JavaScript.nu?javascript *---

//--This script is FREE, but you MUST let these lines *---

//--remain if you use this script. *---

 

//***---HTML-taggar före texten (i rutan som poppar upp)

html_fore="<TABLE CELLPADDING=2 BORDER=1 CELLSPACING=0><TR><TD STYLE='color:yellow;background-color: Blue; font-family: arial, verdana; font-size: 8pt;'>"

 

//***---HTML-taggar efter texten (i rutan som poppar upp)

html_efter="</TD></TR></TABLE>"

 

//***---Rutans övre vänstra kant bör inte vara exakt där musen är, fördelaktigt är att förskjuta den lite. Testa dig fram till en förskjutning som passar din sida. Både negativa och positiva värden kan anges.

Xled=100

Yled=50

 

 

 

 

divnamn="lanktexten";

 

function lagerinfo_visa(txt)

{

if (txt)

{

txt=html_fore+txt+html_efter

if (document.all)

{

document.all[divnamn].innerHTML=txt;

document.all[divnamn].style.visibility="visible";

}

else if (document.layers)

{

document[divnamn].document.open();

document[divnamn].document.write(txt);

document[divnamn].document.close();

document.layers[divnamn].visibility="visible";

}

}

else

{

if (document.all)

{

document.all[divnamn].innerHTML="";

document.all[divnamn].style.visibility="hidden";

}

else if (document.layers)

{

document[divnamn].document.open();

document[divnamn].document.write("");

document[divnamn].document.close();

document.layers[divnamn].visibility="hidden";

}

}

}

 

 

if (document.all)

{

document.onmousemove = musen_flyttar;

}

else if (document.layers)

{

window.captureEvents(Event.MOUSEMOVE);

window.onMouseMove = musen_flyttar;

}

 

 

var Xmusposition, Ymusposition;

 

function musen_flyttar(ev)

{

if (document.all)

{

Xmusposition = window.event.x;

Ymusposition = window.event.y;

}

else if (document.layers)

{

Xmusposition = ev.pageX;

Ymusposition = ev.pageY;

}

flytta_lager(divnamn,Xmusposition+Xled,Ymusposition+Yled);

}

 

function flytta_lager(lagernamn,x,y)

{

if (document.all)

{

document.all[lagernamn].style.left = x;

document.all[lagernamn].style.top = y;

}

else if (document.layers)

{

document.layers[lagernamn].left = x;

document.layers[lagernamn].top = y;

}

}

//-->

</SCRIPT>

<SCRIPT for="document" event="onclick">

if(meny==false) {

meny1.style.display='none'

meny2.style.display='none'

}

</SCRIPT>

<SCRIPT>

var meny=false

function VisaMeny(obj) {

meny1.style.display='none'

meny2.style.display='none'

obj.style.display=''

}

 

</SCRIPT>

<TABLE border="3" cellspacing="0" width="66%">

<TR bgcolor="Teal" bordercolor="#FF0000" align="left" valign="top">

<TH onClick="VisaMeny(meny2)" onMouseOver="meny=true" onMouseOut="meny=false" height="20" width="100%"><FONT size="2">Fiskeguiden

guiden<BR>

<SPAN id="meny2" style="display: none; background: Silver"> <A href="tavl.asp" onMouseOver="lagerinfo_visa('Grunderna');" onMouseOut="lagerinfo_visa();">

Tävlingar</A><BR>

<A href="tipsf.asp" onMouseOver="lagerinfo_visa('Länkar och lite om bilder');" onMouseOut="lagerinfo_visa();">Tips</A></SPAN></FONT><BR>

</TH>

</TR>

<TR bgcolor="Teal" bordercolor="#FF0000" align="left" valign="top">

<TH onClick="VisaMeny(meny1)" onMouseOver="meny=true" onMouseOut="meny=false" height="10" width="100%"><FONT size="2">Html

guiden <SPAN id="meny1" style="display: none; background: Silver">

<A href="html1.asp" onMouseOver="lagerinfo_visa('Grunderna');" onMouseOut="lagerinfo_visa();">Lektion

1</A><BR>

<A href="html2.asp" onMouseOver="lagerinfo_visa('Länkar och lite om bilder');" onMouseOut="lagerinfo_visa();">Lektion

2</A><BR>

</SPAN></FONT> </TH>

</TR>

<TR bgcolor="Teal" bordercolor="#FF0000" align="left" valign="top">

<TH onClick="VisaMeny(meny1)" onMouseOver="meny=true" onMouseOut="meny=false" height="10" width="100%"><A href="poke.asp"><FONT size="2">Pokémon</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="annonser.asp" title="Ta en titt på Crash Annonsforum" onMouseOver="lagerinfo_visa('Ta en titt på annonserna, Du kan också lägga till en gratis!');" onMouseOut="lagerinfo_visa();">

<FONT size="2">Annonser</FONT></A><BR>

<FONT size="2"><A href="matain.asp">läggtill</A></FONT> </TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%">

<P><A href="index.asp" title="gå till Startsidan" onMouseOver="lagerinfo_visa('Gå tillbaks till min startsida!');" onMouseOut="lagerinfo_visa();"><FONT size="2">StartSidan</FONT></A></P>

</TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="filer.asp" onMouseOver="lagerinfo_visa('titta vilka filer jag bjuder på!');" onMouseOut="lagerinfo_visa();"><FONT size="2">Filer</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="omm.asp" title="Se information om Crash webmaster" onMouseOver="lagerinfo_visa('Se information om Crash webmaster');" onMouseOut="lagerinfo_visa();"><FONT size="2">Om

mig</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="aspchatdemo/Default.asp" title="Gå in och Chatta" onMouseOver="lagerinfo_visa('Gå in och chatta på Crash chatten');" onMouseOut="lagerinfo_visa();"><FONT size="2">Chat</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="webb.asp" title="Ta en tit på Crash Gratis webbutrymme!" onMouseOver="lagerinfo_visa('Här hittar du länkar till gratiswebbutrymme');" onMouseOut="lagerinfo_visa();"><FONT size="2">Webbutrymme</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="linkex.asp" title="Byt länkar med oss nu!!" onMouseOver="lagerinfo_visa('Ge oss din länk mot att vi får ha en länk på er sida!');" onMouseOut="lagerinfo_visa();"><FONT size="2">Länkbyte</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><FONT size="2"><A href="links.asp" title="Gå till mina länkar">Länkar</A></FONT></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="login.asp" title="gå till medlemsidan" onMouseOver="lagerinfo_visa('gå in på medlemsidan');" onMouseOut="lagerinfo_visa();"><FONT size="2">Medlemsidan</FONT></A></TH>

</TR>

<TR bordercolor="#FF0000" align="left">

<TH width="100%"><A href="galleri.asp"><FONT size="2">Gif galleri</FONT></A></TH>

</TR>

</TABLE>

<P>Så här många <BR>

har varit här:<BR>

<% Application.Lock

Application.Contents("Besokare") = Application.Contents("Besokare") + 1

Application.Unlock

 

Set F = CreateObject("Scripting.FileSystemObject")

Set T = F.CreateTextFile("visitors.txt")

 

T.WriteLine Application.Contents("Besokare")

 

T.Close

 

Set A = CreateObject("Scripting.FileSystemObject")

Set B = A.OpenTextFile("visitors.txt", 1)

 

Visits = B.ReadLine

 

B.Close %> </P>

<TABLE width="6%" border="3">

<TR>

<TD><%=Visits%></TD>

</TR>

</TABLE>

</TD>

<TD width="84%" align="left" valign="top">

<H2>Välkommen till Crash Hemsida!</H2>

<P>Har ni några tips om vart man kan hitta information om hur man

gör ett diskussions forum i ASP eller någon länk till

ett färdigt. Då kan ni meila mig längst ner. Testa mitt

annonsforum det har jag gjort själv. Meila mig med ämnet Medlem

för att bli medlem, du måste skriva in namn och email adress

och vanlig adress och telefonnummer.Den här hemsidan ska vi försöka

uppdatera minst 1 gång per månad.</P>

<P>Vad tycker Ni om att hockeyn slår ut Arkiv X (jag är irriterad

som fan på att Hockeyn sänds på den tid det sänds

så Jag skulle vilja att vi bad TV4 lite snällt att de kan sända

hockeyn efter 22:00 eller repriser nån tid på dagen!)</P>

<P><FONT face="Times New Roman, Times, serif" class="gron">Visste ni om

att Helly Hansen ville ha ett reportage om sina flytvästar och REA

i SVT gjorde ett flytväst test men inte på lika vilkor det

var därför Baltic blev sämst efterssom de bara fick med

en seglarväst som är för simkunniga, men Helly Hansen och

den andra hade livräddningsvästar för de som inte kan simma.

För mer information tag kontakt med oss på <A href="mailto:crashwm@hotmail.com">Crashwm@hotmail.com</A></FONT></P>

<P><FONT face="Times New Roman, Times, serif">Tycker du rätt låt

vann i Schlager- EM ??</FONT></P>

<P>

<SCRIPT language="JavaScript1.1">

 

<!-- Begin

function right(e) {

if (navigator.appName == 'Netscape' &&

(e.which == 3 e.which == 2))

return false;

else if (navigator.appName == 'Microsoft Internet Explorer' &&

(event.button == 2 event.button == 3)) {

alert("Du skall icke stjäla står det i bibeln, försök inte!!");

return false;

}

return true;

}

document.onmousedown=right;

if (document.layers) window.captureEvents(Event.MOUSEDOWN);

window.onmousedown=right;

 

 

// End -->

</SCRIPT>

Ps. Är det någon som ska sälja någon mt5 för

under 3000 kontakta mej genast (trim är ju bra för då

slipper jag ju trimma den)

</TD>

</TR>

<TR>

<TD colspan="2">Har ni några synpunkter så <A href="mailto:jesper.johansson14@home.se?subjekt=synpunkter">meila

mig!!<BR>

</A>©Jesper Johansson<BR>

Vill något företag mot förmodan ha en Banner länk på

min sida så hör av er <A href="mailto:jesper.johansson14@home.se?subjekt=företagsannons">Här</A></TD>

</TR>

</TABLE>

</BODY>

</HTML>

 

 

Link to comment
Share on other sites

Gunnar Slott

På dom här raderna ligger problemet. Jag tror inte att ditt webbhotel är problemet.

 

<% Application.Lock

Application.Contents("Besokare") = Application.Contents("Besokare") + 1

Application.Unlock

 

Set F = CreateObject("Scripting.FileSystemObject")

Set T = F.CreateTextFile("visitors.txt")

//Här skulle jag prova med

//Set T = F.OpenTextFile("visitors.txt",8)

//Du kanske inte får skapa en fil i din

//webbmapp med scriptet.

//Har för mig att 8:an står för att

//öppna en fil för överskrivning, men

//det kan vara för tillägg i slutet av

//textfilen.

 

T.WriteLine Application.Contents("Besokare")

 

T.Close

 

Set A = CreateObject("Scripting.FileSystemObject")

Set B = A.OpenTextFile("visitors.txt", 1)

 

Visits = B.ReadLine

 

B.Close %>

Link to comment
Share on other sites

Gunnar Slott

Om du vill läsa eller skriva till en textfil så gäller följande:

Set B = A.OpenTextFile("visitors.txt", 1) = Läsa från fil

Set B = A.OpenTextFile("visitors.txt", 2) = Skriva över fil

Set B = A.OpenTextFile("visitors.txt", 8) = Lägg till text i slutet av filen

 

//Gunnar

 

 

[inlägget ändrat 2000-07-06 11:43:52 av Gunnar Slott]

Link to comment
Share on other sites

Gunnar Slott

Hmm... Jag har gett dig exempel i VBscript, men nu ser jag att du jobbar med javascript. Nån vänlig själ kanske kan "översätta".

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...