Skulle du kunna banta ner koden och endast visa avsnittet där felet uppstår?
jag har månadens fråga på min sajt, och vill nu ha verdana som teckensnitt.. det funkar där frågan står, men vid kolla av ställningen så vägrar den att ha verdana på FRÅGORNA!!! varför?
kolla:(detta är inte hela koden, men det räcker nog ändå)
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\groda\snabbfraga.mdb" %>
<% If Request.QueryString("visa") = "resultat" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT Fraga FROM fraga"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<p>
<font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:12; text-decoration:none;"><b><% =RecSet("Fraga") %></b></span></font><font size="2" face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"><br><br></span></font><font color="black" face="Verdana,Arial"><span style="font-family:Verdana; font-size:10; text-decoration:none;"><% RecSet.Close %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM alternativ"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
If RecSet("Alternativ") = "B" Then
X = 2
Summa = RecSet("AltEtt") -- RecSet("AltTva")
ElseIf RecSet("Alternativ") = "C" Then
X = 3
Summa = RecSet("AltEtt") -- RecSet("AltTva") -- RecSet("AltTre")
ElseIf RecSet("Alternativ") = "D" Then
X = 4
Summa = RecSet("AltEtt") -- RecSet("AltTva") -- RecSet("AltTre") -- RecSet("AltFyra")
ElseIf RecSet("Alternativ") = "E" Then
X = 5
Summa = RecSet("AltEtt") -- RecSet("AltTva") -- RecSet("AltTre") -- RecSet("AltFyra") -- RecSet("AltFem")
End If %>
</span></font><font face="Verdana,Arial" size="2" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;">Ställningen just nu:</span></font><p>
<font size="1" face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"><% Yett = 0
Ytva = 0
Ytre = 0
Yfyra = 0
Yfem = 0
If X => 2 Then
If RecSet("AltEtt") => 1 Then
Yett = Round(RecSet("AltEtt") / Summa * 100)
End If
If RecSet("AltTva") => 1 Then
Ytva = Round(RecSet("AltTva") / Summa * 100)
End If
End If
If X => 3 Then
If RecSet("AltTre") => 1 Then
Ytre = Round(RecSet("AltTre") / Summa * 100)
End If
End If
If X => 4 Then
If RecSet("AltFyra") => 1 Then
Yfyra = Round(RecSet("AltFyra") / Summa * 100)
End If
End If
If X => 5 Then
If RecSet("AltFem") => 1 Then
Yfem = Round(RecSet("AltFem") / Summa * 100)
End If
End If %>
</span></font><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="120" align="right"><% =RecSet("TextEtt") %><font face="Verdana,Arial" size="1" color="black"><font face="Verdana,Arial" size="1" color="black"><font size="1"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></font></font></td>
<td align="left" valign="middle"><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"><img src="bild.gif" width="<% =Yett %>" height="8"> <% =Yett %>%</span></font></td>
</tr>
<tr><td height="3"><font face="Verdana,Arial" size="1" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></td><td><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"> </span></font></td></tr>
<tr>
<td width="120" align="right"><% =RecSet("TextTva") %><font face="Verdana,Arial" size="1" color="black"><font size="1"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></font></td>
<td align="left" valign="middle"><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"><img src="bild.gif" width="<% =Ytva %>" height="8"> <% =Ytva %>%</span></font></td>
</tr>
<tr><td height="3"><font face="Verdana,Arial" size="1" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></td><td><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"> </span></font></td></tr>
<% If RecSet("Alternativ") = "C" OR RecSet("Alternativ") = "D" OR RecSet("Alternativ") = "E" Then %>
<tr>
<td width="120" align="right"><% =RecSet("TextTre") %><font face="Verdana,Arial" size="1" color="black"><font size="1"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></font></td>
<td align="left" valign="middle"><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"><img src="bild.gif" width="<% =Ytre %>" height="8"> <% =Ytre %>%</span></font></td>
</tr>
<tr><td height="3"><font face="Verdana,Arial" size="1" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></td><td><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"> </span></font></td></tr>
<% End If %>
<% If RecSet("Alternativ") = "D" OR RecSet("Alternativ") = "E" Then %>
<tr>
<td width="120" align="right"><% =RecSet("TextFyra") %><font face="Verdana,Arial" size="1" color="black"><font size="1"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></font></td>
<td align="left" valign="middle"><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"><img src="bild.gif" width="<% =Yfyra %>" height="8"> <% =Yfyra %>%</span></font></td>
</tr>
<tr><td height="3"><font face="Verdana,Arial" size="1" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></td><td><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"> </span></font></td></tr>
<% End If %>
<% If RecSet("Alternativ") = "E" Then %>
<tr>
<td width="120" align="right"><% =RecSet("TextFem") %><font face="Verdana,Arial" size="1" color="black"><font size="1"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></font></td>
<td align="left" valign="middle"><font face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:11; text-decoration:none;"><img src="bild.gif" width="<% =Yfem %>" height="8"> <% =Yfem %>%</span></font></td>
</tr>
<tr><td height="3"><font face="Verdana,Arial" size="1" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></td><td><font face="Verdana,Arial" size="1" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;"> </span></font></td></tr>
<% End If %>
</table>
<p>
<font size="1" face="Verdana,Arial" color="black"><span style="font-family:Verdana; font-size:10; text-decoration:none;">Antal svar hittills: <% =Summa %>
<% RecSet.Close %>
sorry, men det är nog busenkelt, men va fan, den vill inte ju!


