Kan kanske inte hjälpa dig med MySQL kopplingen men din kod har 1000 If frågor som bete sig lika.. dvs bara en parameter som är skillnad.
Jag hade gjort om det till 1 if fråga med "else if" istället (blir snabbare än det du har idag).... Annars hade jag kört på Select Case metoden för din kod då du bara ha 1 "kontroll" och det är Request.Querystring("AVD")
Frågan#1
Huvvaligen... Har hittills bara arbetat med Access men har nu blivit tvungen att kasta mig på MySQL då ett nuvarande projekt ligger på webhotellet one.com (f.d. B-One) som inte hanterar Access. Istället erbjuder de MySQL via ett gränssnitt som de kallar PHPMyAdmin.
Har efter flera timmars sökande på wF iaf fått igång kopplingen och lyckats knåpa ihop en databas via PHPMyAdmin. Problemet som jag inte kommer förbi nu är att fälten i min nya tabell/db är tomma, och jag får således felmeddelandet att "Either BOF or EOF is True".
Hur gör jag för att fylla fälten med info (via PHPMYAdmin antar jag!?), eller ännu bättre,
Hur gör jag för att koda så att det inte spelar nån roll att fälten är tomma??
Jag provade med att sätta en simpel
if not rs.eof then
' kod
end if
, men det resulterade bara i en loop av nåt slag.
Kommer inte vidare nu och orkar inte söka i fler trådar ikväll.
Kanske någon av Er rävar direkt ser vad jag kan göra, annars får jag fortsätta mitt grävande på okänd mark imorron... :)
Så här ser koden ut som ger felmeddelandet (felet uppstår på den rad som väljs av rullisten):
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=xxx;UID=xxx;PWD=xxx"
sql = "SELECT * From tabell"
set rs = Conn.Execute(sql)
%>
<html>
<head>
<title>Kontrollpanelen</title>
<link rel="stylesheet" href="mallar.css">
</head>
<body onLoad="form1.losen.focus();">
<table border="1" width="320" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#0000FF">
<tr>
<td background="images/login.gif" height="60">
<form name="form1" method="post" action="kontrollpanelen.asp">
Lösenord:
<input type="password" name="losen" size="14">
<input type="submit" name="Submit" value="Ok">
</form>
</td>
</tr>
<br />
</table>
<br />
<% if request.form("losen") = "xxx" then
session("uppdat") = "1"
end if%>
<% if session("uppdat") = "1" then %>
<h1>Uppdatering</h1>
<br />
<form name="form2">
Här uppdaterar man texten i de olika avdelningarna.
<select onChange="self.location.href=this.options[this.selectedIndex].value;">
<option value="">-- Välj avdelning --</option>
<option value="kontrollpanelen.asp?AVD=start">- Index</option>
<option value="kontrollpanelen.asp?AVD=OmFöretaget">- Om Företaget</option>
<option value="kontrollpanelen.asp?AVD=Rekrytering">- Rekrytering</option>
<option value="kontrollpanelen.asp?AVD=Utbildning">- Utbildning</option>
<option value="kontrollpanelen.asp?AVD=Konsultverksamhet">- Konsultverksamhet</option>
<option value="kontrollpanelen.asp?AVD=Partners">- Partners</option>
<option value="kontrollpanelen.asp?AVD=Natverk">- Nätverk</option>
<option value="kontrollpanelen.asp?AVD=Kunder">- Kunder</option>
<option value="kontrollpanelen.asp?AVD=Kontakt">- Kontakt</option>
</select>
<a href="help.asp" target="_blank"><img border="0" src="images/question.gif" width="16" height="16"></a>
</form>
<br />
<% if Request.Querystring("AVD") = "start" then %>
<form method="post" action="ny_start.asp">
<h3>Index:</h3>
<textarea cols=70 rows=10 name="index"><%=Replace (rs("start"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera">
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "OmFöretaget" then %>
<form method="post" action="ny_omforetaget.asp">
<h3>Om Adeator:</h3>
<textarea cols=40 rows=8 name="omforetaget"><%=Replace (rs("omforetaget"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Rekrytering" then %>
<h3>Rekrytering:</h3>
<form method="post" action="ny_rekrytering.asp">
<textarea cols=40 rows=8 name="Rekrytering"><%=Replace (rs("rekryt"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Utbildning" then %>
<form method="post" action="ny_utbildning.asp">
<h3>Utbildning:</h3>
<textarea cols=40 rows=8 name="Utbildning"><%=Replace (rs("utb"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Konsultverksamhet" then %>
<form method="post" action="ny_konsultverksamhet.asp">
<h3>Konsultverksamhet:</h3>
<textarea cols=40 rows=8 name="Konsultverksamhet"><%=Replace (rs("konsult"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Partners" then %>
<form method="post" action="ny_partners.asp">
<h3>Partners:</h3>
<textarea cols=40 rows=8 name="Partners"><%=Replace (rs("partners"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Natverk" then %>
<form method="post" action="ny_natverk.asp">
<h3>Nätverk:</h3>
<textarea cols=40 rows=8 name="Natverk"><%=Replace (rs("natverk"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Kunder" then %>
<form method="post" action="ny_kunder.asp">
<h3>Kunder:</h3>
<textarea cols=40 rows=8 name="Kunder"><%=Replace (rs("kunder"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
<% if Request.Querystring("AVD") = "Kontakt" then %>
<form method="post" action="ny_kontakt.asp">
<h3>Kontakt:</h3>
<textarea cols=40 rows=8 name="kontakt"><%=Replace (rs("kontakt"), "<br>", CHR(10))%></textarea><br /><br />
<input type="submit" value="Uppdatera"></td>
<input type="reset" value="Rensa">
</form>
<% else %>
</body>
</html>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
