10. juni 2002 - 10:30Der er
15 kommentarer og 1 løsning
Udtræk af Access DB på en bestemt........
Hej med jer.....
Jeg sidder med en kundedatabase lavet i Access. De data jeg skal trække ud af den, som kunde navne, netværk og IP vil jeg have til og blive vist på en bestemt måde på websitet. I stedet for at hver kunde bliver vist en efter en under hinanden, så vil jeg gerne have at der bliver stillet op således at der står 3 kunde navne i hver tabel række ovs ovs. Helt præcist:
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Response.Write"<table border='1'>" Response.Write"<tr>" count = 1 If count = 4 Then count = 1 Response.Write"<tr>" End if Do While NOT oRSr.EOF Response.Write"<td>" & oRSr("Kunde") & "</td>" Response.Write"<td id='tdred'>" & oRSr("NetWork" & " </td>" Response.Write"<td id='tdred'>" & oRSr("IP") & " </td>" If count = 3 Then Response.Write"</tr>" End if count = count+1 oRSr.MoveNext Loop Response.Write"</table>"
Du er nødt til at tælle hvor mange gange du løber igennem løkken. Du skal igennem 3 gange, så når det er sket, nulstiller du "tælleren" og tæller til 3 igen.
<% Dim oConn Dim oRSr Set oConn=Server.CreateObject("ADODB.Connection") Set oRSr=Server.CreateObject("ADODB.Recordset") oConn.Open "DSN=KundeDataBase" strSQL = "SELECT Kunde, NetWork, IP " strSQL = strSQL & "FROM Referencer " oRSr.Open strSQL, oConn
oRSr.MoveFirst Response.Write"<table border='1'>" Response.Write"<tr>" count = 1 If count = 4 Then count = 1 Response.Write"<tr>" End if Do While NOT oRSr.EOF Response.Write"<td>" & oRSr("Kunde") & "</td>" Response.Write"<td id='tdred'>" & oRSr("NetWork" & " </td>" Response.Write"<td id='tdred'>" & oRSr("IP") & " </td>" If count = 3 Then Response.Write"</tr>" End if count = count+1 oRSr.MoveNext Loop Response.Write"</table>" oRSr.Close Set oRSr=Nothing oConn.Close Set oConn = Nothing %>
Hov, jeg tror faktisk der er en fejl i koden jeg gav dig, men det ville resultere i en tabel-fejl. Her er en rettet udgave.
Response.Write"<table border='1'>" Response.Write"<tr>" count = 1 Do While NOT oRSr.EOF If count = 4 Then count = 1 Response.Write"<tr>" End if Response.Write"<td>" & oRSr("Kunde") & "</td>" Response.Write"<td id='tdred'>" & oRSr("NetWork" & " </td>" Response.Write"<td id='tdred'>" & oRSr("IP") & " </td>" If count = 3 Then Response.Write"</tr>" End if count = count+1 oRSr.MoveNext Loop Response.Write"</table>"
Mht. fejl-koden du fik på siden, så er det fordi du mangler at afslutte din parantes. Du skal erstatte: Response.Write"<td id='tdred'>" & oRSr("NetWork" & " </td>" med: Response.Write"<td id='tdred'>" & oRSr("NetWork") & " </td>"
hehehe............okay, takker mange gange og hygge!!!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.