php - Omskrive fra asp til php - Udvikleren.dk - Programmering, webdesign og grafik

Tags: php asp

<< < 1 2 3 > >>

Bruger #17644 @ 25.06.13 22:08

Er der mon en som kan hjælpe mig med at få omskrevet denne kode til php?

PHP kode

 <%
 'Variable hentes fra URL
 sHestId = session("D_Id")
 
 'Connect til database
 Set Conn2  = Server.CreateObject("ADODB.Connection")
 DBPath = "DBQ=" & server.mappath("../db/admin/Database.mdb")
 Conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
 
 
 'Recordsæt dannes
 set rs = Conn2.Execute ("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = "&sHestId)
 
 if not (rs.BOF or rs.EOF) then
   'Hvis hestens id findes i databasen så kender vi nu hestens Id, navn og den forældres Id
   vHestId = rs("hId")
   vHestNavn = rs("Navn")
   vFarId = rs("Far")
   vMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   'Hvis hestens id IKKE findes i databasen så kender vi ingenting
   vHestId = 0
   vHestNavn = "-"
   vFarId = 0
   vMorId = 0
   ' Nu kender du hestens Id, navn og den forældres Id
 end if
 
 'Nu henter vi Far og id på Fars foældre
 if vFarId > 0 then
 set rs = Conn2.Execute ("SELECT hId, Navn, Farve, Far, Mor FROM Databasen WHERE hId = "&vFarId)
 if not (rs.bof or rs.eof) then
 vFarNavn = rs("Navn")
 vFarfarve = rs("Farve")
 vFarFarId = rs("Far")
 vFarMorId = rs("Mor")
 rs.close
 set rs = nothing
 else
 vFarNavn = "-"
 vFarFarId = 0
 vFarMorId = 0
 end if
 else
 vFarNavn = "-"
 vFarFarId = 0
 vFarMorId = 0
 end if
 
 
 'Nu henter vi Mor og id på Mors foældre
 if vMorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, Far, Mor FROM Databasen WHERE hId = "&vMorId)
   vMorNavn = rs("Navn")
   vMorFarId = rs("Far")
   vMorMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   vMorNavn = "-"
   vMorFarId = 0
   vMorMorId = 0
 end if
 
 'Så kommer turen til Farfar
 if vFarFarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarFarId)
   vFarFarNavn = rs("Navn")
 vFarFarFarID = rs("Far")
 vFarFarmorID = rs("Mor")
   rs.close
   set rs = nothing
 else
   vFarFarNavn = "-"
 end if
 
 
 'Så kommer turen til FarMor
 if vFarMorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarMorId)
   vFarMorNavn = rs("Navn")
  vFarMorfarID = rs("Far")
 vFarMormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarMorNavn = "-"
 end if
 
 
 'Så kommer turen til MorFar
 if vMorFarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vMorFarId)
   vMorFarNavn = rs("Navn")
 vMorFarfarID = rs("Far")
 vMorFarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vMorFarNavn = "-"
 end if
 
 
 'Så kommer turen til MorMor
 if vMorMorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vMorMorId)
   vMorMorNavn = rs("Navn")
 vMormorfarID = rs("Far")
 vMormormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vMorMorNavn = "-"
 end if
 
 
 
 'Så kommer turen til FarFarFar
 if vFarFarFarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarFarFarId)
   vFarFarFarNavn = rs("Navn")
 vFarfarfarfarID = rs("Far")
 vFarfarfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarFarFarNavn = "-"
 end if
 
 'Så kommer turen til FarFarmor
 if vFarFarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarFarmorId)
   vFarFarmorNavn = rs("Navn")
 vFarfarmorfarID = rs("Far")
 vFarfarmormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarFarmorNavn = "-"
 end if
 
 'Så kommer turen til Farmorfar
 if vFarmorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarmorfarId)
   vFarmorfarNavn = rs("Navn")
 vFarmorfarfarID = rs("Far")
 vFarmorfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarMorfarNavn = "-"
 end if
 
 'Så kommer turen til Farmormor
 if vFarmormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarmormorId)
   vFarmormorNavn = rs("Navn")
 vFarmormorfarID = rs("Far")
 vFarmormormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarMormorNavn = "-"
 end if
 
 'Så kommer turen til morFarfar
 if vMorFarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vMorFarFarId)
   vmorFarfarNavn = rs("Navn")
 vmorfarfarfarID = rs("Far")
 vmorfarfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmorfarfarNavn = "-"
 end if
 
 'Så kommer turen til morFarmor
 if vMorFarmorId > 0 then
   set rs = Conn.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorFarmorId)
   vmorFarMorNavn = rs("Navn")
 vmorfarmorfarID = rs("Far")
 vmorfarmormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmorFarmorNavn = "-"
 end if
 
 'Så kommer turen til mormorfar
 if vmormorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormorfarId)
   vmormorfarNavn = rs("Navn")
 vmormorfarfarID = rs("Far")
 vmormorfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmormorfarNavn = "-"
 end if
 
 'Så kommer turen til mormormor
 if vmormormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormormorId)
   vmormormorNavn = rs("Navn")
 vmormormorfarID = rs("Far")
 vmormormormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmormormorNavn = "-"
 end if
 
 'Så kommer turen til farfarfarfar
 if vfarfarfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarfarfarId)
   vfarfarfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarfarfarNavn = "-"
 end if
 
 'Så kommer turen til farfarfarmor
 if vfarfarfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarfarmorId)
   vfarfarfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarfarmorNavn = "-"
 end if
 
 'Så kommer turen til farfarmorfar
 if vfarfarmorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarmorfarId)
   vfarfarmorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarmorfarNavn = "-"
 end if
 
 'Så kommer turen til farfarmormor
 if vfarfarmormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarmormorId)
   vfarfarmormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarmormorNavn = "-"
 end if
 
 'Så kommer turen til farmorfarfar
 if vfarmorfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmorfarfarId)
   vfarmorfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmorfarfarNavn = "-"
 end if
 
 'Så kommer turen til farmorfarmor
 if vfarmorfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmorfarmorId)
   vfarmorfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmorfarmorNavn = "-"
 end if
 
 'Så kommer turen til farmormorfar
 if vfarmormorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmormorfarId)
   vfarmormorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmormorfarNavn = "-"
 end if
 
 'Så kommer turen til farmormormor
 if vfarmormormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmormormorId)
   vfarmormormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmormormorNavn = "-"
 end if
 
 
 
 'Så kommer turen til morfarfarfar
 if vmorfarfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarfarfarId)
   vmorfarfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarfarfarNavn = "-"
 end if
 
 'Så kommer turen til morfarfarmor
 if vmorfarfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarfarmorId)
   vmorfarfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarfarmorNavn = "-"
 end if
 
 'Så kommer turen til morfarmorfar
 if vmorfarmorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarmorfarId)
   vmorfarmorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarmorfarNavn = "-"
 end if
 
 'Så kommer turen til morfarmormor
 if vmorfarmormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarmormorId)
   vmorfarmormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarmormorNavn = "-"
 end if
 
 'Så kommer turen til mormorfarfar
 if vmormorfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormorfarfarId)
   vmormorfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormorfarfarNavn = "-"
 end if
 
 'Så kommer turen til mormorfarmor
 if vmormorfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormorfarmorId)
   vmormorfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormorfarmorNavn = "-"
 end if
 
 'Så kommer turen til mormormorfar
 if vmormormorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormormorfarId)
   vmormormorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormormorfarNavn = "-"
 end if
 
 'Så kommer turen til mormormormor
 if vmormormormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormormormorId)
   vmormormormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormormormorNavn = "-"
 end if
 
 %>
 
 <TABLE WIDTH="100%" BACKGROUND="..\Grafik/Background.JPG" BORDER="1" CELLSPACING="1">
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" BACKGROUND="..\Grafik/Background.JPG" ROWSPAN="8" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='Database/Hest.asp?HID="& vFarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>" &  vFarNavn &"</A>" %> </TD>
 
     <TD ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarFarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarFarNavn &"</A>" %> </TD>
 
     <TD ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarfarNavn &"</A>" %> </TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarfarfarNavn &"</A>" %></TD>
 </TR>
 </TR>
 
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="1" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
 <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarmorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarmormorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
         <TD ALIGN="CENTER" ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorfarfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ROWSPAN="1" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmormorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmormorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmormorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmormormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmormormorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="8" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarfarfarNavn &"</A>" %></TD>
 
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarmorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarmormorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorfarfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormormorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormormorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormormorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormormormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormormormorNavn &"</A>" %></TD>
     
 </TR>
 </TABLE>

27 svar postet i denne tråd vises herunder
5 indlæg har modtaget i alt 10 karma

Sorter efter stemmer Sorter efter dato

Bruger #3427 @ 27.06.13 20:17

1.520

Det er lige det med hvad man skriver i php i forhold til asp.

Jeg har dette stykke kode lige nu som driller:

PHP kode

 <?php
 $HestId = $_session["D_id"];
 
 ?>
 
 <?php
 @include('Connect.php'); // Indeholder mit database connect.
 $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
 
 while ($row = @mysql_fetch_array($query)) {
 
 
 ?>
 
 
 
 <? echo "$_session[HestId]"?>
 
 
 
 
 
 <?
 }; // afslutter whileloopet
 ?>

Den skriver ikke noget ud - hvad gør jeg galt??

PHP kode

 <?php
  $HestId = $_SESSION["D_id"];
  
  @include('Connect.php'); // Indeholder mit database connect.
  $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
  
  while ($row = @mysql_fetch_array($query)) {
      echo $row["Navn"];
  } // afslutter whileloopet
  ?>

Bruger #16075 @ 28.06.13 14:12

1.223

jeg har omskrevet Kenneth's eks en lille smugle

prøv denne

Kode

CREATE TABLE IF NOT EXISTS `tbl_test` (
  `hid` int(11) NOT NULL AUTO_INCREMENT,
  `Navn` varchar(255) COLLATE utf8_danish_ci NOT NULL,
  `Far` int(11) NOT NULL,
  `Mor` int(11) NOT NULL,
  PRIMARY KEY (`hid`)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_danish_ci AUTO_INCREMENT=56 ;

INSERT INTO `tbl_test` (`hid`, `Navn`, `Far`, `Mor`) VALUES
(55, 'palle gulvballe', 1, 2);

Kode

<!DOCTYPE html>
<html>
<head>
 <meta charset="utf-8">
	<title></title>
	<style type="text/css">
	</style>
	<script type="text/javascript">
	</script>
</head>
<body>
<?php    
	function MySqlIConnProceduralStyle(){	
		$conn = mysqli_connect("localhost", "root", "", "test");
		if (!$conn) { 	echo "fejl"; }
		mysqli_set_charset($conn, "utf8");
		return $conn;
	}
	
	$conn=MySqlIConnProceduralStyle();	
	$HestId = 55;     // $HestId = $_GET["hid"];
	$sql = "SELECT hid, Navn, Far, Mor FROM tbl_test WHERE hid = '$HestId' LIMIT 1";
	
	$query = mysqli_query($conn, $sql) or die("Der er sket en fejl. Fejlnr. ".mysqli_errno($conn));
    
	if(mysqli_num_rows($query)>0)    {
		// ingen grund til at bruge while her, da der kun kan være 1
		$row = mysqli_fetch_array($query); 
		// echo $row["Navn"];
		//Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
		$vrsId = $row["hid"]; // hId
		$vrsNavn = $row["Navn"];
		$vFarId = $row["Far"];
		$vMorId = $row["Mor"];		
    }
    else{
		echo "ingen poster fundet i databasen.";
		//Hvis rsens id IKKE findes i databasen så kender vi ingenting
		$vrsId = 0;
		$vrsNavn = "-";
		$vFarId = 0;
		$vMorId = 0;
		//Nu kender du rsens Id, navn og den forældres Id
    }
	echo "hestens id er: ".$vrsId."<br>";
	echo "hestens vrsNavn er: ".$vrsNavn."<br>";
	echo "hestens faderid er: ".$vFarId."<br>";
	echo "hestens moderid er: ".$vMorId."<br>";
?>
</body>
</html>

bemærk jeg anvender mysqli, da det er dumt at skrive nye ting i det gamle API (som jeg(ronols) også skrev på http://www.eksperten.dk/spm/982932)
mysqli kan anvendes Procedural Style eller OOP style, eller blandes hvis man vil.
personligt foretrækker jeg OOP style, men har i dette tilfælde holdt mig til rent Procedural Style

ref: http://php.net/manual/en/mysqlinfo.api.choosing.php

Recommended API
It is recommended to use either the mysqli or PDO_MySQL extensions. It is not recommended to use the old mysql extension for new development, as it has been deprecated as of PHP 5.5.0 and will be removed in the future.

Så snart jeg putter samme kode ind på min eksisterende side - så får jeg en blank side. Så der er et eller andet der går galt når jeg sætter det sammen....

hvordan ser din code ud i sammenhæng ??

Bruger #3427 @ 28.06.13 15:24

1.520

Puha jeg har meget jeg skal have læst op på.
Jeg er slet ikke lige med på hvad det her API osv. er for noget.
Heldigvis har jeg ferie lige om lidt og så bliver der ekstra tid til at læse på php.

Jeg vender lige tilbage med min sammensatte kode.

Lige nu har jeg forsøgt at fortsætte på min testside med den kode som gav noget resultat.
Jeg har bygget lidt videre på den - men ak, det virker ikke. Hvorfor?

PHP kode

 <?php
 
  //Variable hentes fra URL
 
  $HestId = $_GET["hid"];//$_GET istedet hvis det er fra URLen... $_GET["D_id"]
  include('Connect.php'); // Indeholder mit database connect.
 $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
   
  if(mysql_num_rows($query)>0)
 
  {
   while ($row = mysql_fetch_array($query)) {
 
    echo $row["Navn"];
    //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
  $vrsId = $row["hId"];
  $vrsNavn = $row["Navn"];
    $vFarId = $row["Far"];
  $vMorId = $row["Mor"];
   } // afslutter whileloopet
 }
  else
 {
  echo "ingen poster fundet i databasen.";
  //Hvis rsens id IKKE findes i databasen så kender vi ingenting
   $vrsId = 0;
   $vrsNavn = "-";
    $vFarId = 0;
  $vMorId = 0;
  //Nu kender du rsens Id, navn og den forældres Id
 }
 
 
 
 'Nu henter vi Mor og id på Mors foældre
 if vMorId > 0 then
   $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$vMorId'"
   $vMorNavn = rs("Navn")
   $vMorFarId = rs("Far")
   $vMorMorId = rs("Mor")
    } // afslutter whileloopet
  }
 else
 {
   $vMorNavn = "-"
   $vMorFarId = 0
   $vMorMorId = 0
 }

syndes det er lige overkill nok at begynde at læse på PDO eller MySQLi for at oversætte en side.

hvis du sætter det her inde i Connect.php filen

PHP kode

 class db {
 
   private static $dbh;
 
   public static function connect($host, $user, $pass, $table) {
     self::$dbh = new PDO('mysql:host=' . $host . ';dbname=' . $table, $user, $pass);
   }
 
   public static function query($query, $values = null) {
     $stmt = self::$dbh->prepare($query);
     if (!$stmt) {
       die("Fejl i SQL");
     }
     if (is_array($values)) {
       foreach ($values as $key => $value) {
         if (is_numeric($value)) {
           $stmt->bindValue($key, (int) trim($value), PDO::PARAM_INT);
         } else {
           $stmt->bindValue($key, trim($value));
         }
       }
     }
     $stmt->execute();
     return $stmt;
   }
 
   public static function error() {
     return self::$dbh->errorInfo();
   }
 
 }
 
 db::connect("127.0.0.1", "brugernavn", "kodeord", "database_navn");

og så det her på din side:

PHP kode

 include('Connect.php');
 $db = db::query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = :hestid", array(":hestid" => $_GET["hid"]));
 if (!$db) {
   die("Der er en fejl i din SQL-Query");
 }
 if ($db->rowCount() > 0) {
   $row = $db->fetch(PDO::FETCH_ASSOC);
 
   echo "<p>" . $row["Navn"] . "</p>";
 //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
   $vrsId = $row["hId"];
   $vrsNavn = $row["Navn"];
   $vFarId = $row["Far"];
   $vMorId = $row["Mor"];
 } else {
   echo "<p>ingen poster fundet i databasen.</p>";
 //Hvis rsens id IKKE findes i databasen så kender vi ingenting
   $vrsId = 0;
   $vrsNavn = "-";
   $vFarId = 0;
   $vMorId = 0;
   //Nu kender du rsens Id, navn og den forældres Id
 }
 
 //Nu henter vi Mor og id på Mors foældre
 if ($vMorId > 0) {
   $query = db::query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = :mor_id", array(":mor_id" => $vMorId));
   if ($query->rowCount() > 0) {
     $mor = $query->fetch(PDO::FETCH_ASSOC);
     $vMorNavn = $mor["Navn"];
     $vMorFarId = $mor["Far"];
     $vMorMorId = $mor["Mor"];
   } else {
     echo "<p>mor ikke fundet i databsen.</p>";
     $vMorNavn = "-";
     $vMorFarId = 0;
     $vMorMorId = 0;
   }
 }

det benytter PDO og sanitizer input (fra din $_GET) sådan man ikke kan lave SQL injections, og syntaxen mindre lidt om MySQL som du brugte til at starte med.

grunden til du fik fejl/blank side før er:
ASP: 'Nu henter vi Mor og id på Mors foældre
PHP: //Nu henter vi Mor og id på Mors foældre

ASP: if vMorId > 0 then
PHP: if vMorId > 0

ASP: vMorNavn = rs("Navn")
PHP: $vMorNavn = $row["Navn"]; //HUSK ; (kan undlades på sidste linje i php, men aldrig midt i et script)

syntax fejl som dette vil dræbe scriptet, og ikke udskrive noget, evt kaste en fejl 500 fra serveren alt efter server-opsætning.

Indlæg senest redigeret d. 28.06.2013 15:34 af Bruger #3427

Bruger #10878 @ 29.06.13 09:20

Det kan jeg ikke se skulle være skyld i de store problemer.

Når du svarer. Må du meget gerne skrive en ny besked. Så kan vi nemmere se, at du har svaret.

Jeg har smid koden op på min testside. Test
Koden på min testside:

PHP kode

 <?php
     //Opretter forbindelse
     mysql_connect('localhost', 'Bruger', 'Kode');
     //Vælg database
     mysql_select_db("Database"); 
     //Sætter værdierne til 0
     $vrsId = 0;
     $vrsNavn = "-";
     $vFarId = 0;
     $vMorId = 0;
     //Henter ID fra URL
     if(empty($_GET['hid'])){
         $hid=0;    
     }else{
         $hid=$_GET['hid'];    
     }
     //Beskytter input
     $hid=mysql_real_escape_string($hid);
     //Tjekker at input er et tal
     if (is_numeric($hid)) {
         //Søger efter hesten i tabellen
         $query = mysql_query("SELECT * FROM Tabellen WHERE hid = '$hid'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
         //While kører kun hvis hesten er fundet
         while ($row = mysql_fetch_array($query)) {
             //Hesten er fundet. Henter informationerne fra databasen
             $vrsId = $row["hid"];
             $vrsNavn = $row["Navn"];
             $vFarId = $row["Far"];
             $vMorId = $row["Mor"];
         }
         //Viser informationerne, som er fundet i databasen
         echo "hestens id er: ".$vrsId."<br>";
         echo "hestens vrsNavn er: ".$vrsNavn."<br>";
         echo "hestens faderid er: ".$vFarId."<br>";
         echo "hestens moderid er: ".$vMorId."<br>";
     }else{
         //Input er ikke et tal
         echo "Hestens ID er ikke et tal.";
     }
 ?>

Jeg har ændret lidt i koden. Så den er nemmere for mig at finde fejl.
Der er 3 linier som du selv skal ændre.

PHP kode

 mysql_connect('localhost', 'Bruger', 'Kode');
 mysql_select_db("databasen");
 $query = mysql_query("SELECT * FROM tabellen WHERE hid = '$hid'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());

PHP kode

 mysql_connect('localhost', 'Bruger', 'Kode');

Bruger og kode skal udskiftes, med din bruger og kode til MYSQL.
localhost kan udskiftes til 127.0.0.1 hvis nødvendigt.

PHP kode

 mysql_select_db("databasen");

'databasen' skal udskiftes med navnet på din database.

PHP kode

 $query = mysql_query("SELECT * FROM tabellen WHERE hid = '$hid'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());

'tabellen' skal udskiftes med navnet på din tabel.

Indlæg senest redigeret d. 29.06.2013 11:08 af Bruger #10878

Bruger #16075 @ 04.07.13 14:02

1.223

hvis du nærlæser mit indlæg fra @ 28.06.13 16:24
har du fået løsningen, dog skal det ikke udlæsses direkte til skærm men til variabler du udlæser nede i din tabel
du kommer til at kalde functionen HentHesteInfo 31 gange med forskellige heste id'er

Kode

<?php
require_once('Connect.php'); // Indeholder mit database connect.

function HentHesteInfo($HestId){
	$dummy = array("hid"=>0, "Navn"=>"-", "Far"=>0, "Mor"=>0);
	// fanger hvis $HestId er 0
	if($HestId==0) return $dummy;
	// Databasen (dumt navn til en tabel)
	$rs = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen  WHERE hid = '$HestId' LIMIT 1") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
	if(mysql_num_rows($rs)>0){
		return mysql_fetch_assoc($rs);		 
	}    
	else{
		// fanger hvis $HestId ikke findes i db
		return 	$dummy;	
	}	
}
// hvis "vaiablen" hid kommer med i URL'en sættes $HestId til heltals værdien af denne, ellers sættes $HestId til 0
$HestId = (isset($_GET["hid"]))? (int)$_GET["hid"]:0;
    
$hest=HentHesteInfo($HestId);		
$hestnavn = $hest['Navn'];
$vFarID = $hest['Far'];
$vMorID = $hest['Mor'];

// du har nu id på mor og far

// hestens far 15 kald af HentHesteInfo
$hest=HentHesteInfo($vFarID);
$vFarNavn = $hest['Navn'];	
$vFarfarID = $hest['Far'];
$vFarmorID = $hest['Mor'];
////////////////////////////
$hest=HentHesteInfo($vFarfarID);
$vFarFarNavn = $hest['Navn'];	
$vFarfarfarID = $hest['Far'];
$vFarfarmorID = $hest['Mor'];
	
$hest=HentHesteInfo($vFarmorID);
$vFarmorNavn = $hest['Navn'];	
$vFarmorfarID = $hest['Far'];
$vFarmormorID = $hest['Mor'];
////////////////////////////
$hest=HentHesteInfo($vFarfarfarID);
$vFarfarfarNavn = $hest['Navn'];	
$vFarfarfarfarID = $hest['Far'];
$vFarfarfarmorID = $hest['Mor'];
		
$hest=HentHesteInfo($vFarfarmorID);
$vFarfarmorNavn = $hest['Navn'];	
$vFarfarmorfarID = $hest['Far'];
$vFarfarmormorID = $hest['Mor'];	
	
$hest=HentHesteInfo($vFarmormorID);
$vFarmormorNavn = $hest['Navn'];	
$vFarmormorfarID = $hest['Far'];
$vFarmormormorID = $hest['Mor'];	
	
$hest=HentHesteInfo($vFarmorfarID);
$vFarmorfarNavn = $hest['Navn'];	
$vFarmorfarfarID = $hest['Far'];
$vFarmorfarmorID = $hest['Mor'];
///////////////////////////////////
// her kommer 8 kald af HentHesteInfo(..) med de id'er der er funndet ovenfor 




// hestens mor 15 kald af HentHesteInfo
$hest=HentHesteInfo($vMorID);
$vmorNavn = $hest['Navn'];
$vmorfarID = $hest['Far'];
$vmormorID = $hest['Mor'];
/////////////////////////////////
$hest=HentHesteInfo($vmorfarID);
$vmorfarNavn = $hest['Navn'];
$vmorfarfarID = $hest['Far'];
$vmorfarmorID = $hest['Mor'];		

$hest=HentHesteInfo($vmormorID);
$vmormorNavn = $hest['Navn'];
$vmormorfarID = $hest['Far'];
$vmormormorID = $hest['Mor'];
////////////////////////////////
// her kommer 4 kald af HentHesteInfo(..) med de id'er der er funndet ovenfor 

///////////////////////////////
// her kommer 8 kald af HentHesteInfo(..) med de id'er der er funndet ovenfor 
?>
<!DOCTYPE html>
<html>
<head>
<!-- resten af din HTML -->


<table>
	<tr>	
		<td rowspan="8">	<a href="<?php echo $_SERVER['PHP_SELF'] . '?hid='. $vFarID .'" target="_blank">'.$vFarNavn ?></a></td>
		<td rowspan="4" ><a href="<?php echo $_SERVER['PHP_SELF'] . '?hid='. $vFarfarID .'" target="_blank">'.$vFarFarNavn ?></a></td>
		<td rowspan="2" ><a href="<?php echo $_SERVER['PHP_SELF'] . '?hid='. $vFarfarfarID .'" target="_blank">'.$vFarfarfarNavn ?></a></td>
		<td  ><a href="<?php echo $_SERVER['PHP_SELF'] . '?hid='. $vFarfarfarfarID .'" target="_blank">'.$vFarfarfarfarNavn ?></a></td>
	</tr>
	
	<tr>
		<td  rowspan="1" ><a href="<?php echo $_SERVER['PHP_SELF'] . '?hid='. $vFarfarfarmorID .'" target="_blank">'.$vFarfarfarmorNavn ?></a></td>
	</tr>
	<!-- resten af tabellen -->
</table>

Kode

<a href="<?php echo $_SERVER['PHP_SELF'] . '?hid='. $vFarID .'" target="_blank">'.$vFarNavn ?></a>

ovenstående linje svare til

Kode

<A HREF='Database/Hest.asp?HID="& vFarID &"'"& "STYLE='text-decoration: none' TARGET='_Blank'>" & vFarNavn &"</A>

CSS ligger selvføgelig ikke i HTML

linket bør pakkes ind i en funtion, så man kun lave en link, hvis hid > 0
og så er jeg ikke sikker på jeg syntes det er en god ide at åbne en ny fane / windue (target="_blank)

ovenstående løsning er svær at vedligeholde, så man bør tænke i en rekursiv function, der opbygger et multidimitionel associative array, som man efterfølgende udskriver i tabellen.
man må så ud fra dette array kunne skabe tabellen dynamisk.

Bruger #17015 @ 27.06.13 18:45

614

Jeg tror du ville have mere held ved at slå det op som en betalt opgave ;-)

Hvis du selv går i gang med det, så kan du oprette en tråd når du løber ind i problemer, men jeg tvivler stærkt på, at der er nogen der bare lige vil oversætte din kode til PHP for sjov skyld...

Bruger #17644 @ 27.06.13 18:52

Jeg er i gang med det, men er ikke nået så langt.

Jeg er nået til at skulle "oversætte" dette:

PHP kode

 if not (rs.BOF or rs.EOF) then
   'Hvis hestens id findes i databasen så kender vi nu hestens Id, navn og den forældres Id
   vHestId = rs("hId")
   vHestNavn = rs("Navn")
   vFarId = rs("Far")
   vMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   'Hvis hestens id IKKE findes i databasen så kender vi ingenting
   vHestId = 0
   vHestNavn = "-"
   vFarId = 0
   vMorId = 0
   ' Nu kender du hestens Id, navn og den forældres Id
 end if

Tips til hvor jeg kan læse mig frem til det modtages også gerne. Plejer at få tingene lært på den måde.

Bruger #17015 @ 27.06.13 18:59

614

Hvilken del af ovenstående er det der er problematisk?

De elementer der indgår er if/else udtryk[1] og variable[2] der sættes. Og så lukkes rs som formegentlig er en forbindelse til en database.

[1]: http://dk1.php.net/manual/en/control-structures.if.php
[2]: http://dk1.php.net/manual/en/language.variables.basics.php

Bruger #17644 @ 27.06.13 19:34

Det er lige det med hvad man skriver i php i forhold til asp.

Jeg har dette stykke kode lige nu som driller:

PHP kode

 <?php
 $HestId = $_session["D_id"];
 
 ?>
 
 <?php
 @include('Connect.php'); // Indeholder mit database connect.
 $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
 
 while ($row = @mysql_fetch_array($query)) {
 
 
 ?>
 
 
 
 <? echo "$_session[HestId]"?>
 
 
 
 
 
 <?
 }; // afslutter whileloopet
 ?>

Den skriver ikke noget ud - hvad gør jeg galt??

Bruger #17644 @ 27.06.13 21:03

PHP kode

 <?php
 
 2.  $HestId = $_SESSION["D_id"];
 
 3.  
 
 4.  @include('Connect.php'); // Indeholder mit database connect.
 
 5.  $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
 
 6.  
 
 7.  while ($row = @mysql_fetch_array($query)) {
 
 8.      echo $row["Navn"];
 
 9.  } // afslutter whileloopet
 
 10.  ?>

Den virker i hvert fald så min side åbner - men jeg kan så bare ikke få den til at skrive noget ud

Hvis jeg bare for test skriver:

PHP kode

 <?php
  $HestId = $_SESSION["D_id"];
 @include('Connect.php'); // Indeholder mit database connect.
 $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
 
 while ($row = @mysql_fetch_array($query)) {
 
 ?>
 
 asdf
 
 
 
 
 <?
 }; // afslutter whileloopet
 ?>

Så skriver den altså ikke hvad end jeg skriver imellem (hvor der her står asdf)

Jeg har også problemer med at omskrive denne del:

PHP kode

 if not (rs.BOF or rs.EOF) then
   'Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
   vrsId = rs("hId")
   vrsNavn = rs("Navn")
   vFarId = rs("Far")
   vMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   'Hvis rsens id IKKE findes i databasen så kender vi ingenting
   vrsId = 0
   vrsNavn = "-"
   vFarId = 0
   vMorId = 0
   ' Nu kender du rsens Id, navn og den forældres Id
 end if

Indlæg senest redigeret d. 27.06.2013 21:39 af Bruger #17644

<< < 1 2 3 > >>

Omskrive fra asp til php

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler