Hello there,
I have been trying to convert the following code from ASP to PHP4. and I am pulling my hair out trying to do it ...
<p>Main Contact</p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber1">
<tr>
<td><font size="1" face="Arial Narrow">Name</font></td>
<td><font size="1" face="Arial Narrow">Email Address</font></td>
<td><font size="1" face="Arial Narrow">Phone Number</font></td>
<td><font size="1" face="Arial Narrow">Full Access</font></td>
<td><font size="1" face="Arial Narrow"> Security Phrase</font></td>
</tr>
<% 'do until no more matches found
Dim x
x = 0
do while NOT objRS.EOF
response.write"<tr>"
%>
<form action="script.asp" method="post" name="frmUpdateMain<%=x%>"><input type="hidden" name="Action" value="UpdateMain">
<td><input type=text name=FormMainContName size=30 value="<%=objRS("Name")%>"></font></td>
<td><input type=text name=FormMainContEmail size=30 value="<%=objRS("Email")%>"></font></td>
<td><input type=text name=FormMainContPhone size=30 value="<%=objRS("Phone")%>"></font></td>
<%
If objRS("Full_Access") = 0 Then
response.Write "<td><font size=1 face=Arial Narrow><INPUT TYPE=checkbox NAME=FullAccess VALUE=1> </font></td>"
else
response.write "<td><font size=1 face=Arial Narrow><INPUT TYPE=checkbox NAME=FullAccess VALUE=1 Checked></font></td>"
End if
%>
<td><input type=text name=FormMainContSecurity size=30 value="<%=objRS("Security")%>"></font></td>
<td height=60><input type=hidden name=company value="<%=objRS("Comp_ID")%>"><input type=hidden name=fixedmainname value="<%=objRS("Name")%>"><input type=hidden name=FixedMainUnique value="<%=objRS("Unique_ID")%>">
<input type="submit" name="btnupdate<%=x%>" value="Update"><input type="hidden" value="update.asp" name="previouspage"><input type=button name=btnDelete<%=x%> value=Delete></td>
</tr>
</form>
<form action=script.asp method=post name="frmDeleteMain<%=x%>"><input type=hidden name=Action value=DeleteMain>
<input type=hidden name=company value="<%=objRS("Comp_ID")%>"><input type=hidden name=fixedmainname value="<%=objRS("Name")%>"><input type=hidden name=FixedMainUnique value="<%=objRS("Unique_ID")%>">
<SCRIPT LANGUAGE=vbscript>
Sub btnDelete<%=x%>OnClick()
'Prompt the user to ensure they want to delete this contact
lngRC = MsgBox("Deleting an employee is irreversible." & vbCRLF &
"Are you sure you want to delete this contact?",vbOKCANCEL,"Confirm Company Deletion")
'If the user chose OK then proceed
If lngRC = vbOK Then
Call frmDeleteMain<%=x%>.submit()
End If
End Sub
</SCRIPT>
</form>
<%x = x + 1 %>
<%
objRS.MoveNext
Loop
%>
<form action=script.asp method=post name=frmAddMain>
<input type=hidden name=Action value=AddMain>
<tr>
<td><font size=1 face=Arial Narrow><b><input type=text name=FormMainContName size=30></b></font></td>
<td><font size=1 face=Arial Narrow><b><input type=text name=FormMainContEmail size=30></b></font></td>
<td><font size=1 face=Arial Narrow><b><input type=text name=FormMainContPhone size=30></b></font></td>
<td><font size=1 face=Arial Narrow><INPUT TYPE=checkbox NAME=FormMainContFullAccess VALUE=1> </font></td>
<td><font size=1 face=Arial Narrow><b><input type=text name=FormMainContSecurity size=30><input type=hidden name=FormMainContCompID value="<%=Request.Form("cbocompany")%>"></b></font></td>
<td><input type=button name=btnSubmitMain value=Add></td>
</tr>
</form>
</table>
As you can see from the code it pull data from the Database and places it is a table that allows you to Update or Delete the user. If Delete is requested then a msgbox will appear asking if you really want to do this.
My problem is, when converting this to PHP using MySql I can get it to Delete the first entry in the list but any thing after that will be ignorned.
The PHP code is as follows :-
<SCRIPT LANGUAGE=vbscript>
Dim x
x = 0
</SCRIPT>
<?
while ($mainresults = mysql_fetch_array($main)) {
?>
<form action="updatescript.php" method="get" name="frmUpdateMain<%=x%>">
<input type="hidden" name="Action" value="UpdateMain">
<tr>
<td><input type=text name=FormMainContName size=30 value="<? echo $mainresults['Name']; ?>"></font></td>
<td><input type=text name=FormMainContEmail size=30 value="<? echo $mainresults['Email']; ?>"></font></td>
<td><input type=text name=FormMainContPhone size=30 value="<? echo $mainresults['Phone']; ?>"></font></td>
<?
If ($mainresults['Full_Access']=='0')
{
?>
<td><font size=1 face=Arial Narrow><INPUT TYPE=checkbox NAME=FullAccess VALUE=1></font></td>
<?
}
else
{
?>
<td><font size=1 face=Arial Narrow><INPUT TYPE=checkbox NAME=FullAccess VALUE=1 Checked></font></td>
<?
}
?>
<td><input type=text name=FormMainContSecurity size=30 value="<? echo $mainresults['Security']; ?>"></td>
<td height=60>
<input type=hidden name=company value="<? echo $mainresults['Comp_ID']; ?>">
<input type=hidden name=FixedMainName value="<? echo $mainresults['Name']; ?>">
<input type=hidden name=FixedMainUnique value="<? echo $mainresults['Unique_ID']; ?>">
<input type="submit" name="btnupdate<%=x%>" value="Update"><input type=submit name="btnDelete<%=x%>" value="Delete">
<input type="hidden" value="updateinfo.php" name="previouspage">
</td>
</tr>
</form>
<form action="updatescript.php" method=get name="frmDeleteMain<%=x%>">
<input type=hidden name=Action value=DeleteMain>
<input type=hidden name=company value="<? echo $mainresults['Comp_ID']; ?>">
<input type=hidden name=FixedMainName value="<? echo $mainresults['Name']; ?>">
<input type=hidden name=FixedMainUnique value="<? echo $mainresults['Unique_ID']; ?>">
<SCRIPT LANGUAGE=vbscript>
Sub btnDelete<%=x%>OnClick()
'Prompt the user to ensure they want to delete this contact
lngRC = MsgBox("Deleting an employee is irreversible." & vbCRLF &
"Are you sure you want to delete this contact?",vbOKCANCEL,"Confirm Company Deletion")
'If the user chose OK then proceed
If lngRC = vbOK Then
Call frmDeleteMain<%=x%>.submit()
End If
End Sub
</SCRIPT>
</form>
<SCRIPT LANGUAGE=vbscript>
x = x + 1
</SCRIPT>
<?
}
?>
Am going in the right direction .. or completely barking up the wrong tree...
I am new to PHP and I have been going out of my mind for 4 days trying to get this to work...
TIA
Leroy
