Popup med flash indhold styret af acces database
Hej, jeg er ved at gøre en spilsektion for min hjemmeside. Jeg er faktisk færdig, men nu da jeg uploader siden på mit webhotel finder jeg ud af, at man ikke ser på flash-spillene når loader, men det kun er hvid skærm indtil spillet er fuldt loaded, og så kommer spillet frem. Jeg har fundet ud af, at det er derfor, at man har direkte link til swf filen. Jeg vil gerne have et popup vindue, hvor man ikke skal lave en side for hvert spil, men at popup vinduet indeholder en flash connection, som fx:<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="640" height="480">
<param name="movie" value=="<% = URL %>" >
<param name="quality" value="high">
<embed src="<% = URL %>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="<% = windowwidth>" height="<% windowheight %>"></embed>
</object>
Da man så klikker på et spil på denne side, vil jeg have det samme spil at komme frem i flash connection på popup-vinduet, så man kan se at det loader. Det må I eksperter ku' gøre ;)
Connection til tabellen:
<!--#include file="DBConnection/games.asp" -->
<%
RS__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
RS__MMColParam = Request.QueryString("id")
End If
%>
<%
Response.Buffer = True
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = database
RS.Source = "SELECT * FROM TabelInfo ORDER BY navn ASC"
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 1
RS.Open()
RS_numRows = 0
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Contents/Games/DB/games.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TabelInfo WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs("Clicks") = rs("Clicks") + 1
strURL = rs("URL-default")
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Clear
Response.Redirect(strURL)
End If
End If
%>
Dette er i <body>
<%
Repeat1__numRows = -1
Repeat1__index = 0
RS_numRows = RS_numRows + Repeat1__numRows
strSQL = "SELECT * FROM TabelInfo ORDER BY Navn"
Set rs = myConn.Execute(strSQL)
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT RS.EOF))
%>
<%
Windowwidth = RS.Fields.Item("Windowwidth").Value
Windowheight = RS.Fields.Item("Windowheight").Value
%>
<% Response.Write "<a href=Default.asp?mode=games&id=" & rs("id") & ""%> onclick="window.open('contents/games/games/<% Response.write rs("URL")%>','Jolly','height=<%=windowheight %>,width=<%=windowwidth %>','target=_blank')">
<b><%=(RS.Fields.Item("Navn").Value)%></b></a><br>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS.MoveNext()
color = color + 1
Wend
%>
