Hvordan virker Flash codening i forhold til ASP
Jeg kunne godt tænke mig at begynde at lege lidt med flash men ved ikke helt hvordan codningen virker i forhold til ASP.derfor har jeg flg side (asp) som virker sammen med en Access database og ville håbe at der evt var nogle herinde der ville lave samme script bare i flash codning så jeg kan se forskellen/lighederne.
min code er:
Index.asp
<-- CODESTART -->
<!-- #INCLUDE file="common.asp" -->
<html>
<head>
<title>Hente link fra database</title>
<link rel="StyleSheet" href="style.css" type="text/css">
<style type=text/css>
.linkHeader
{
color:white;
background-color:black;
font-family:Tahoma;
font-size:12px;
font-weight:bold;
}
.white
{
color:black;
background-color:white;
font-family:Tahoma;
font-size:12px;
font-weight:bold;
text-decoration:none;
}
.black
{
color:black;
background-color:#cccccc;
font-family:Tahoma;
font-size:12px;
font-weight:bold;
text-decoration:none;
}
.bottom
{
height:3px;
background-color:black;
}
</style>
</head>
<body bgcolor="#009933">
<center>
<table width="500" cellspacing=0 cellpadding=3 border=0 class=linkTable>
<tr class=linkHeader>
<td align=left>Hold </td>
<td align=left>Pulje Nr. </td><td align=left>Stilling </td><td align=left>Kamp Oversigt</td>
</tr>
<%
Dim tr_class
Sub changeColor()
If tr_class = "white" Then
tr_class = "black"
Else
tr_class = "white"
End If
End Sub
tr_class = "white"
sql = "SELECT * FROM unghold ORDER BY hold;"
Set rs = cn.Execute(sql)
If rs.EOF Then
%>
<tr>
<td colspan=4 class=white align=center> Der findes ingen Indlæg i denne
database</td>
</tr>
<%
Else
While Not rs.EOF
%>
<tr>
<td class=<%=tr_class%>><%=rs("hold")%></a></td>
<td align=center class=<%=tr_class%>><%=rs("puljenr")%></a></td>
<td class=<%=tr_class%>><a target="_blank" href="<%=rs("stillinglink")%>"class=<%=tr_class%>>Stilling</a></td>
<td align=center class=<%=tr_class%>><a target="_blank" href="<%=rs("oversigtlink")%>"class=<%=tr_class%>>Oversigt</a></td>
</tr>
<%
changeColor
rs.MoveNext
Wend
End If
rs.Close '' !!!!! <-- Sørg altid for at lukke for dit recordset, før du destruerer det
Set rs = Nothing
%>
<tr>
<td colspan=4 class=bottom></td>
</tr>
</table>
</body>
</html>
<%
cn.Close
Set cn = Nothing
%>
<-- CODESLUT -->
Common.asp
<-- CODESTART -->
<%
Dim cn, cnStr, sql, rs
cnStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("klub7.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open cnStr
%>
<-- CODESLUT -->
Style.css
<-- CODESTART -->
body {
scrollbar-face-color:#005300;
scrollbar-shadow-color:#005320;
scrollbar-highlight-color:black;
scrollbar-3dlight-color: silver;
scrollbar-darkshadow-color:gray;
scrollbar-track-color:d7d7d7;
scrollbar-arrow-color:yellow;
}
A:LINK {
COLOR: 009933;
FONT-FAMILY: Tahoma;
FONT-SIZE: 10pt;
FONT-WEIGHT: bold;
text-decoration : none;
}
A:VISITED {
COLOR: 009933;
FONT-FAMILY: Tahoma;
FONT-SIZE: 10pt;
FONT-WEIGHT: bold;
text-decoration : none;
}
A:HOVER {
COLOR: black;
FONT-FAMILY: Tahoma;
FONT-SIZE: 10pt;
FONT-WEIGHT: bold;
text-decoration : underline;
}
INPUT.Button {
BACKGROUND : #FFFFFF;
BORDER : 1px solid #009933;
COLOR : #009933;
FONT-FAMILY: tahoma, verdana, arial;
FONT-SIZE: 10pt
}
INPUT
{
COLOR: #000000;
FONT-FAMILY: tahoma, verdana, arial;
FONT-SIZE: 10pt
}
.myTexteara
{
COLOR: #000000;
FONT-FAMILY: tahoma, verdana, arial;
FONT-SIZE: 10pt
}
.tekst {
COLOR: #333333;
FONT-FAMILY: Tahoma;
FONT-SIZE: 11pt;
<-- CODESLUT -->
håber nogle vil kigge på dette og lave en side som vil vise det fra min database !!
