Avatar billede hagi Nybegynder
31. januar 2001 - 10:38 Der er 3 kommentarer

Adrotator /urgent

De her er  min source kode til et banner på min hjemmeside.


// Adrotator.asp
<%
Set ad = Server.CreateObject(\"MSWC.AdRotator\")
ad.Clickable = True
%>

<body>

<table border=\"0\" Align=\"Left\">
    <Tr>
    <td><IMG SRC=\"images/HS Ikon.gif\"></td>

    <td align=\"Center\"><%=Date()%><Br>

    <%If DatePart(\"h\",Time()) >= 18 then %>


    <% Response.write \"Habeen Wanaagsan !\" %>

    <%else%>

    <%Response.write \" Maalin Wanaagsan !\" %>

    <%end if %></Td>

    </Tr>
    </table>
    <Table Align=\"Center\">
        <Tr><Td><%=ad.GetAdvertisement(\"adrotator.txt\")%></Td></Tr>
    </Table>



</Body>
</html>

//Redirect.asp

<%
Response.Buffer = True
Response.Clear

Response.Redirect (Request.QueryString(\"url\"))
%>

//adrotator.txt

redirect adredirect.asp
width 480
height 60
border 0

*
http://www.horyaal.com/Alamal.gif
Http://www.horyaal.com/kontakt.html
Shirkadda Xawilaada Al-Amal Laanteeda Copenhagen!
10

http://www.horyaal.com/Horyaal.gif
http://www.Horyaal.com
Horyaal Software
20


Og Det her det fejl meddelse som jeg får


MSWC.AdRotator.1 error \'80004005\'

ERROR Unknown header name

/adrotator.asp, line 36




Er der nogen der kan hjælpe med ?
Tak på forhånd

Http://www.horyaal.com



Avatar billede mmp Nybegynder
31. januar 2001 - 12:46 #1
Du har din header placeret nede i Body delen, den skal stå før HEAD delen.
Avatar billede hagi Nybegynder
31. januar 2001 - 13:19 #2
Det kan jeg ikke se selv om jag har lavet om til


<html>
<%@language=VBScript %>
<%
Set ad = Server.CreateObject(\"MSWC.AdRotator\")
ad.Clickable = True
ad.Border = 1
ad.TargetFrame = \"target=top\"

%>
<Head>
<Link rel=Stylesheet Href=\"Onkod.css\" Type=\"text/css\">
</Head>

<body>

<table border=\"0\" Align=\"Left\">
    <Tr>
    <td><IMG SRC=\"images/HS Ikon.gif\"></td>

    <td align=\"Center\"><%=Date()%><Br>

    <%If DatePart(\"h\",Time()) >= 18 then %>


    <% Response.write \"Habeen Wanaagsan !\" %>

    <%else%>

    <%Response.write \" Maalin Wanaagsan !\" %>

    <%end if %></Td>

    </Tr>
    </table>
    <Table Align=\"Center\">
        <Tr><Td><%Response.write ad.GetAdvertisement(\"adrotator.txt\")%></Td></Tr>
    </Table>
   


</Body>
</html>

men stadig virker ikke
Avatar billede monstersurf Praktikant
26. maj 2001 - 23:50 #3
Databasestyret adrotator:

<%@ Language=VBScript %>

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
%>

<HTML>

<head>
<meta http-equiv=\"refresh\" content=\"90\">

</head>

<BODY BGCOLOR=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\">
<CENTER>

<%
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM banner\", Conn, 1, 3

randomize
Do
    linie1 = int(rs.RecordCount * rnd)
    linie2 = int(rs.RecordCount * rnd)
Loop Until (Linie1 <> Linie2) Or (rs.RecordCount = 1)

rs.MoveFirst
rs.Move(linie1)

%>
<a href=\"<% = RS(\"http\")%>\" target=\"_blank\"><img src=\"<%=rs(\"banner\")%>\" alt=\"<%=rs(\"info\")%>\" border=\"0\" width=\"100%\" height=\"100%\"></a>
<%

rs.MoveFirst
rs.Move(linie2)


rs.Close
set rs = nothing

Conn.Close
set Conn = nothing
%>

I databasen laver du en tabel der hedder Banner
heri skal der være følgende felter:

ID
info
http
banner

Resten siger vist sig selv ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester