asp kodları ile tablo yaratmak

sadakat48 · 1 20-01-2012, 10:44:16

arkadaşlar aşağıdaki kodlarla bir sorgulama sayfası yaptım yalnız oturtamadığım şey işlemin çıktısı.

çıktı aşağıdaki gibi şekilde çıkıyor ben bunu tabloya oturtmak istiyorum ama bir türlü yapamadım html kodları ile table ile giriştiğimde hata verdi bana yardımcı olabilirmisiniz ben başlık koymak istiyorum ; SERVİS | ARIZA şeklinde altındada arızalar listelensin istiyorum yardımcı olursanız cok sevinirim umarım anlatabilmişimdir.

Kod:

Elektrik İşletme kullanıcısının verileri: 1.GRUP AT TRAFOSU BUCHOLZ MİN 1.KD VE YAĞ SEVİYESİ MİN SİNYALLERİ VAR. 
Elektrik İşletme kullanıcısının verileri: 2.GRUP 22M2 VOLAN BOŞA DÖNÜYOR 
Elektrik İşletme kullanıcısının verileri: 3.GRUP ELETRO FİLTRE KAMVURUCU BÖLGESİ AYDINLATMALARIN BAZILARI YANMIYOR PANODAN OTOMAT ATTIRIYOR 
Elektrik İşletme kullanıcısının verileri: 2CB/21M1 TERMİK ATTIRIYOR. 
Elektrik İşletme kullanıcısının verileri: 3AT TRF. 6 NOLU SOĞUTUCU ÇIKIŞ VALFİNİN TİJI KIRILDI.

Kod:

<form action="" method="post">
<select size="1" name="kull"  style="font-family: Calibri; font-size: 10pt; font-weight: bold">
		<option value="Boş"></option>
		<option>Elektrik İşletme</option>
		<option>Kazan İşletme</option>
		<option>Türbin İşletme</option>
		<option>Su Hazırlama</option>
		<option>A4</option>
		<option>F5</option>
		<option>BGA İşletme</option>
		<option>Dış Tesisler İşletme</option>
		</select>
<input type="submit" value="Gönder" />
</form>


<%
Set Baglanti = Server.CreateObject("aDodb.connection")
Baglanti.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/db.mdb")
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then


strKull=Request.Form("kull")


Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open"SELECT * FROM dal WHERE web = '" & strKull & "' order by id desc ", Baglanti, 1, 3


Do While Not Rs.Eof
Response.Write(strKull & " kullanıcısının verileri:"&_
				" " & Rs("NOT") & " <br />") 
Rs.MoveNext
Loop
Rs.Close
End If
%>

salsa77 · 2 20-01-2012, 22:11:56

PHP- Kodu:

  <form action="" method="post">

<select size="1" name="kull"  style="font-family: Calibri; font-size: 10pt; font-weight: bold">

        <option value="Boş"></option>

        <option>Elektrik İşletme</option>

        <option>Kazan İşletme</option>

        <option>Türbin İşletme</option>

        <option>Su Hazırlama</option>

        <option>A4</option>

        <option>F5</option>

        <option>BGA İşletme</option>

        <option>Dış Tesisler İşletme</option>

        </select>

<input type="submit" value="Gönder" />

</form>

 
<table width="100%" colspan="2" cellspacing="5" cellpadding="5">

<tr>

<td aligin="left" bgcolor="#404040" width="35%" height="35"><font face="arial" size="2" color="#FFFFFF"><b>SERVİS</b></font></td>

<td aligin="left" bgcolor="#404040" width="65%" height="35"><font face="arial" size="2" color="#FFFFFF"><b>ARIZA</b></font></td>

</tr>

 
<%

Set Baglanti = Server.CreateObject("aDodb.connection")

Baglanti.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/db.mdb")

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

 
 
strKull=Request.Form("kull")

 
 
Set Rs=Server.CreateObject("ADODB.RecordSet")

Rs.Open"SELECT * FROM dal WHERE web = '" & strKull & "' order by id desc ", Baglanti, 1, 3

 
 
Do While Not Rs.Eof

%>

 
<tr>

<td aligin="left" bgcolor="#FFFFFF" width="35%" height="35"><font face="arial" size="2" color="#000000"><%=strKull%> kullanıcısının verileri:</font></td>

<td aligin="left" bgcolor="#FFFFFF" width="65%" height="35"><font face="arial" size="2" color="#000000"><%=RS("NOT")%></font></td>

</tr>

 
 
<%

Rs.MoveNext

Loop

Rs.Close

End If

%>

</table>

hata yapmış olabilirim kendi bilgisayarımdan yazmadım ama idare et o şekilde olması lazım kodun.

ayrıca konu başlığını yanlış yazmışsın asp kodlarını tablo içinde kullanmak diye yazsan daha iyi olurdu birde yaratmak sadece allaha mahsustur kardeş.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder