Hej alla på wF!
Jag undrar varför jag får felmeddelandet att det inte stöds längre?! Jag tog koden från joakimweb.se. Koden fungerar för sig själv i en annan fil men inte på startsidan med annan kod.
Hmm
Hoppas att ni har ett svar till detta problem!
Med Vänliga Hälsningar (MVH) wally_91
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("poll.mdb")
SQL = "SELECT TOP 1 * From fragor ORDER BY id DESC"
Set RecSet1 = Connect.Execute(SQL)
%>
Error 1
Description: 'Let' and 'Set' assignment statements are no longer supported.
File: C:\Documents and Settings\\Mina dokument\Visual Studio 2005\WebSites\WebSite1\Default.aspx
Line: 101
Column: 1
Project: C:\...\WebSite1\
Orginal koden
<html>
<head>
<title>Veckans fråga</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("poll.mdb")
SQL = "SELECT TOP 1 * From fragor ORDER BY id DESC"
Set RecSet1 = Connect.Execute(SQL)
%>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="175" border="0">
<% IF RecSet1.EOF then %>
<tr>
<td style="height: 14px">
<div align="center"><font face="Verdana" size="1">Databasen är tom</font></div>
</td>
</tr>
<%ELSE
SQL = "SELECT * From svar WHERE koppling = " & RecSet1("id") & " ORDER BY namn"
Set RecSet2 = Connect.Execute(SQL)
Do Until RecSet1.EOF%>
<form name="form1" method="post" action="rosta.asp?id=<%=RecSet1("id")%>">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font face="Verdana" size="1"><b><%=RecSet1("namn")%></b></font></td>
</tr>
<% Do Until RecSet2.EOF %>
<tr>
<td>
<input type="radio" name="val" value="<%=RecSet2("id")%>">
<font face="Verdana" size="1"><%=RecSet2("namn")%></font></td>
</tr>
<%
RecSet2.MoveNext
Loop
RecSet2.Close
%>
</table>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="submit" name="Skicka" value="Rösta" style="border: 1px solid; font-family: verdana; font-size: 10px">
<input type="button" name="Knapp" value="Resultat" style="border: 1px solid; font-family: verdana; font-size: 10px" OnClick="window.location='resultat.asp'">
</div>
</td>
</tr>
</form>
<tr>
<td>
<hr noshade size="1">
</td>
</tr>
<tr>
<td>
<div align="center"><font face="Verdana" size="1">Totalt <b><%=RecSet1("antal")%></b>
röster</font></div>
</td>
</tr>
<%
RecSet1.MoveNext
Loop
RecSet1.Close
Connect.Close
Set Connect = nothing
END IF
%>
</table>
</body>
</html>
PS. Jag har tagit bort html, head och body taggarna i den sida som koden inte funkar i DS.

