Formattazione dei records disallineata

[Enrique_Rojas]

Buongiorno forum.

Il code che posto di seguito non rispetta la formattazione righe e colonne, nel senso che se uno dei due campi richiamati dal dbase è vuoto, invece di "saltare" la colonna mi allinea il valore del campo successivo, che ho combinato?:

Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, OpenStr, 3, 3	
      
Response.Write "<div align=center>"
Response.Write "<center>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#FFFF00' align='center'>Data</td>"
Response.Write "<td bgcolor='#FFFF00' align='center'>Nome</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</center>"
Response.Write "</div>"
    
	On Error Resume Next
	rs.MoveFirst
	Do While Not rs.eof
	
	IDCD = rs("id")
	
Response.Write "<div align=center>"
Response.Write "<center>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#FFFFFF' align='center'>" & rs.Fields("data") & "</td>"
Response.Write "<td bgcolor='#FFFFFF' align='center'>" & rs.Fields("nome") & "</td>"

[Roby_72]

Dal pezzo di codice postato non si desumono irregolarità.
Magari posta qualcosa in più.

Roby

[Enrique_Rojas]

Grazie Roby, il resto del code è questo:

QueryString = Request.QueryString( "QueryString" )
	QueryWords  = Split( QueryString )

Set adoCon = Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/crm.mdb")
adoCon.open OpenStr

	
	sql = "SELECT * FROM [tbl_login] WHERE"
    

	sql = sql & " ( [Nome] LIKE '%" & QueryWords( 0 ) & "%'"
	For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
		If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
			If uCase( QueryWords( i-1 ) ) = "OR" Then
				sql = sql & " OR [Nome] LIKE '%" & QueryWords( i ) & "%'"
			Else
				sql = sql & " AND [Nome] LIKE '%" & QueryWords( i ) & "%'"
			End If
		End If
	Next

Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, OpenStr, 3, 3	

'il resto l'ho già postato....

Mi spiego meglio, allego una immagine di come stampa la tabella con questa formattazione... i dati ricavati dai records non stanno sotto le colonne dove dovrebbero stare...

[Roby_72]

Forse perché hai creato due tabelle mentre invece deve essere una sola.

Response.Write "<div align=center>"
Response.Write "<center>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#FFFF00' align='center'>Data</td>"
Response.Write "<td bgcolor='#FFFF00' align='center'>Nome</td>"
Response.Write "</tr>"
    
	On Error Resume Next
	rs.MoveFirst
	Do While Not rs.eof
	
	IDCD = rs("id")
	
Response.Write "<tr>"
Response.Write "<td bgcolor='#FFFFFF' align='center'>" & rs.Fields("data") & "</td>"
Response.Write "<td bgcolor='#FFFFFF' align='center'>" & rs.Fields("nome") & "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</center>"
Response.Write "</div>"

Ora di sicuro li incolonna correttamente.

Roby

[Enrique_Rojas]

Grazie !!!!!