Date: 02/14/06 (Web Development)    Keywords: mysql, database, asp, sql

Hey all,

I'm an idiot when it comes to ASP, just just starting, and don't know VBScript either (which is what this developer used). I'm trying to use some of his code for some other database functions to grab different data (which I've tried to modify it to get) but I don't know where I'm going wrong. It's in SQL, not MySQL, too. Any clues? I need to display a list of Transcripts, where the url is TranscriptURL and the Event Title is sEventTitle. Am I collecting the data wrong? Are the loops/connections messed up?

'* Get the name of the videoURL and transcriptURL. '* Now get the data. Dim oConnection Set oConnection = Session("oConn") '* Build the select statement. sSQL = "SELECT VideoURL, TranscriptURL, Title, [Date] FROM IOP_Events WHERE TranscriptURL != "" " '* Now create a Recordset object. set rstTemp = Server.CreateObject("ADODB.Recordset") rstTemp.ActiveConnection = oConnection rstTemp.Open sSQL, oConnection '* Set the variables for the data. with rstTemp if not .eof then '* Set the videoURL (wont always have one). sVideoURL = trim(.fields("VideoURL").value & "") '* Check for the transcriptURL now. if trim(.fields("TranscriptURL").value & "") <> "" then '* We have a transcript so set it. sTranscriptURL = trim(.fields("TranscriptURL").value else '* Now transcript available. sTranscriptURL = "" end if '* Set the event title and date. sEventTitle = trim(.fields("Title").value & "") sEventDate = trim(.fields("Date").value & "") end if end with '* Clean up. rstTemp.close set rstTemp = nothing '* Setup the connection. Dim oConnection Set oConnection = Session("oConn") '* Now create a Recordset object. set rstTemp = Server.CreateObject("ADODB.Recordset") rstTemp.ActiveConnection = oConnection rstTemp.Open sSQL, oConnection '* Write out all the data now. iColumnNumber = 1 iRowNumber = 0 with rstTemp do while not .eof if iColumnNumber = 1 then '* Write out the first record in the first column. '* Use alternating row colors. iRowNumber = iRowNumber + 1 if iRowNumber mod 2 = 0 then Response.write ("<tr class=""tan_bg"">") else Response.write ("<tr class=""results_text"">") end if '* Write out the record now. Response.write ("<td><a href=" & sTranscriptURL & """>" & trim(.fields("sEventTitle").value & "") & "</td>") iColumnNumber = 2 else '* Write out the record now. Response.write ("<td><a href=" & sTranscriptURL & """>" & trim(.fields("sEventTitle").value & "") & "</td></tr>") iColumnNumber = 1 end if '* Now write out the second write in the second column. .movenext loop '* If we didn't get any rows write out message. if iRowNumber = 0 then Response.write ("<tr class=""results_text""><td>None specified</td></tr>") end if '* Add last tr closing tag if we ended writing to column 1. Response.write ("<td> </td></tr>") end with '* End the table now. Response.write ("</table>") '* Clean up. rstTemp.close set rstTemp = nothing
Anyone who doesn't feel like dealing with it can also just point me in the way of a quickstart ASP/VBscript guide, as well (online better).

Jess

Source: http://community.livejournal.com/webdev/297189.html