Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Connect to Access database using ASP.NET
- Thread starter martinb7
- Start date
Here's a simple drilling of an access database using a reader:
'************ Get Site Records ****************
'get site information...
Dim dbconnSiteRecs As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Sites.mdb;"
)
Dim DBCommSites = New OleDbCommand _
("SELECT HUC11, County, Description, Latitude, Longitude, Waterbody_Name, ChemCt FROM WebMasterSites WHERE AwwSiteCode ='" & Request.QueryString("AwwSiteCode" & "'", dbconnSiteRecs)
Dim Myreader As OleDbDataReader
Try
dbconnSiteRecs.Open()
Myreader=DBCommSites.ExecuteReader()
While Myreader.Read()
lblHUC11.Text = Myreader("HUC11"
lblCounty.Text = Myreader("County"
lblSite.Text = Myreader("Description"
lblWaterbodyName.Text = Myreader("Waterbody_Name"
lblLatitude.Text = Myreader("Latitude"
lblLongitude.Text = Myreader("Longitude"
lblChemCt.Text = Myreader("ChemCt"
End While
Myreader.Close()
Catch err As Exception
lblResults.Text = "Error reading list of names. "
lblResults.Text &= err.Message
Finally
If (Not dbconnSiteRecs Is Nothing) Then
dbconnSiteRecs.Close()
End If
End Try
'************ Get Site Records ****************
'get site information...
Dim dbconnSiteRecs As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Sites.mdb;"
)Dim DBCommSites = New OleDbCommand _
("SELECT HUC11, County, Description, Latitude, Longitude, Waterbody_Name, ChemCt FROM WebMasterSites WHERE AwwSiteCode ='" & Request.QueryString("AwwSiteCode"
& "'", dbconnSiteRecs)Dim Myreader As OleDbDataReader
Try
dbconnSiteRecs.Open()
Myreader=DBCommSites.ExecuteReader()
While Myreader.Read()
lblHUC11.Text = Myreader("HUC11"
lblCounty.Text = Myreader("County"
lblSite.Text = Myreader("Description"
lblWaterbodyName.Text = Myreader("Waterbody_Name"
lblLatitude.Text = Myreader("Latitude"
lblLongitude.Text = Myreader("Longitude"
lblChemCt.Text = Myreader("ChemCt"
End While
Myreader.Close()
Catch err As Exception
lblResults.Text = "Error reading list of names. "
lblResults.Text &= err.Message
Finally
If (Not dbconnSiteRecs Is Nothing) Then
dbconnSiteRecs.Close()
End If
End Try
- Thread starter
- #3
There's a problem with your code: i have highlighted it in red!
Compiler Error Message: BC30002: Type 'OleDbConnection' is not defined.
'************ Get Site Records ****************
'get site information...
Dim dbconnSiteRecs As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Sites.mdb;")
Dim DBCommSites = New OleDbCommand _
("SELECT HUC11, County, Description, Latitude, Longitude, Waterbody_Name, ChemCt FROM WebMasterSites WHERE AwwSiteCode ='" & Request.QueryString("AwwSiteCode" & "'", dbconnSiteRecs)
Dim Myreader As OleDbDataReader
Try
dbconnSiteRecs.Open()
Myreader=DBCommSites.ExecuteReader()
While Myreader.Read()
lblHUC11.Text = Myreader("HUC11"
lblCounty.Text = Myreader("County"
lblSite.Text = Myreader("Description"
lblWaterbodyName.Text = Myreader("Waterbody_Name"
lblLatitude.Text = Myreader("Latitude"
lblLongitude.Text = Myreader("Longitude"
lblChemCt.Text = Myreader("ChemCt"
End While
Myreader.Close()
Catch err As Exception
lblResults.Text = "Error reading list of names. "
lblResults.Text &= err.Message
Finally
If (Not dbconnSiteRecs Is Nothing) Then
dbconnSiteRecs.Close()
End If
End Try
I changed all the code so it matched my database;
version info if you need it:
Version Information: Microsoft .NET Framework Version:1.0.3705.288; ASP.NET Version:1.0.3705.288
is the url
Any ideas anybody??
Thanx
Martin
Compiler Error Message: BC30002: Type 'OleDbConnection' is not defined.
'************ Get Site Records ****************
'get site information...
Dim dbconnSiteRecs As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Sites.mdb;"
)Dim DBCommSites = New OleDbCommand _
("SELECT HUC11, County, Description, Latitude, Longitude, Waterbody_Name, ChemCt FROM WebMasterSites WHERE AwwSiteCode ='" & Request.QueryString("AwwSiteCode"
& "'", dbconnSiteRecs)Dim Myreader As OleDbDataReader
Try
dbconnSiteRecs.Open()
Myreader=DBCommSites.ExecuteReader()
While Myreader.Read()
lblHUC11.Text = Myreader("HUC11"
lblCounty.Text = Myreader("County"
lblSite.Text = Myreader("Description"
lblWaterbodyName.Text = Myreader("Waterbody_Name"
lblLatitude.Text = Myreader("Latitude"
lblLongitude.Text = Myreader("Longitude"
lblChemCt.Text = Myreader("ChemCt"
End While
Myreader.Close()
Catch err As Exception
lblResults.Text = "Error reading list of names. "
lblResults.Text &= err.Message
Finally
If (Not dbconnSiteRecs Is Nothing) Then
dbconnSiteRecs.Close()
End If
End Try
I changed all the code so it matched my database;
version info if you need it:
Version Information: Microsoft .NET Framework Version:1.0.3705.288; ASP.NET Version:1.0.3705.288
is the url
Any ideas anybody??
Thanx
Martin
You probably left out the OLEDb reference, q.v.,
<%@ Page Language="VB" Debug="true"%>
<%@Import Namespace = "Microsoft.VisualBasic"%>
<%@Import Namespace = "System"%>
<%@Import Namespace = "System.Web"%>
<%@Import Namespace = "System.Web.UI"%>
<%@Import Namespace = "System.Web.UI.WebControls"%>
<%@Import Namespace = "System.Web.UI.HtmlControls"%>
<%@Import Namespace = "System.Data"%>
<%@Import Namespace = "System.Data.OleDb"%>
...the last one...
<%@ Page Language="VB" Debug="true"%>
<%@Import Namespace = "Microsoft.VisualBasic"%>
<%@Import Namespace = "System"%>
<%@Import Namespace = "System.Web"%>
<%@Import Namespace = "System.Web.UI"%>
<%@Import Namespace = "System.Web.UI.WebControls"%>
<%@Import Namespace = "System.Web.UI.HtmlControls"%>
<%@Import Namespace = "System.Data"%>
<%@Import Namespace = "System.Data.OleDb"%>
...the last one...
- Thread starter
- #5
now its saying that the labels are not declared??
HELP!! ^_^
Thanx
HELP!! ^_^
Thanx
the labels were pretty much extra, no need, they must however physcially exists, here they are invisible on the form, and serve to catch the values coming out of the table. I posted thinking only the reference connection string was all that was needed.
- Thread starter
- #8
Can you repost with all the lables in as well please??
Because i need them as im writing the data out on the web page.
Thanx
Martin
Because i need them as im writing the data out on the web page.
Thanx
Martin
Martin, lost track of exactly what page that came out of. The asp labels are only there to "catch" the reader values coming out the table. What I do in cases like this is to create asp labels and set their Visible property to "false" and then use them to store information between posts, etc, and prior to sending next Querystring.
Here is a complete page, with the Try...Catch error trapping during db connection: Also a couple of other things going on - send this page to the printer, and the rest should jump out at ya - nuthin but VB and a little java --
<%@ Page Language="VB" Debug="false" %>
<%@Import Namespace = "Microsoft.VisualBasic"%>
<%@Import Namespace = "System"%>
<%@Import Namespace = "System.Web"%>
<%@Import Namespace = "System.Web.UI"%>
<%@Import Namespace = "System.Web.UI.WebControls"%>
<%@Import Namespace = "System.Web.UI.HtmlControls"%>
<%@Import Namespace = "System.Data"%>
<%@Import Namespace = "System.Data.OleDb"%>
<script runat="server">
Public strPath, strPaths As String
Private Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
radCounty.Attributes.Add("onMouseOut", "RetImage()"
radWShed.Attributes.Add("onMouseOut", "RetImage()"
radWbody.Attributes.Add("onMouseOut", "RetImage()"
radGIS.Attributes.Add("onMouseOut", "RetImage()"
radZIP.Attributes.Add("onMouseOut", "RetImage()"
radGroup.Attributes.Add("onMouseOut", "RetImage()"
radTSR.Attributes.Add("onMouseOut", "RetImage()"
radCounty.Attributes.Add("onMouseOver", "switchpic('images/Counties.gif')"
radWShed.Attributes.Add("onMouseOver", "switchpic('images/WShed.gif')"
radWbody.Attributes.Add("onMouseOver", "switchpic('images/Wbody.gif')"
radZIP.Attributes.Add("onMouseOver", "switchpic('images/ZIP.gif')"
radGIS.Attributes.Add("onMouseOver", "switchpic('images/GIS.gif')"
radGroup.Attributes.Add("onMouseOver", "switchpic('images/Group.gif')"
radTSR.Attributes.Add("onMouseOver", "switchpic('images/TSR.gif')"
End If
End Sub
Sub GetCounties()
'open database...
Dim cmdSelect As OLEDbCommand
Dim dbconn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Aerials.mdb;")
cmdSelect = New OLEDbCommand("SELECT DISTINCT County FROM tblFieldData ORDER BY County", dbconn)
Try
dbconn.Open()
ddCty.DataSource = cmdSelect.ExecuteReader()
ddCty.DataBind()
dbconn.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconn Is Nothing) Then
dbconn.Close()
End If
End Try
End Sub
Sub GetZipCodes()
Dim dbconnSiteRecs As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Sites.mdb;")
Try
dbconnSiteRecs.Open()
Dim DBCommand = New OleDbCommand ("SELECT DISTINCT tblZipCodes.City, tblZipCodes.County, WebMasterSites.ZipCode & ' ' & tblZipCodes.County & ' Co., ' & tblZipCodes.City & ', ' & tblZipCodes.State As ZipInfo FROM WebMasterSites LEFT JOIN tblZipCodes ON WebMasterSites.ZipCode = tblZipCodes.Zip_Code WHERE (((WebMasterSites.ZipCode)<>'NV')) ORDER BY tblZipCodes.County, tblZipCodes.City", dbconnSiteRecs)
Dim reader As OleDbDataReader
ddCty.DataSource = DBCommand.ExecuteReader()
ddCty.DataTextField = "ZipInfo"
ddCty.DataBind()
dbconnSiteRecs.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconnSiteRecs Is Nothing) Then
dbconnSiteRecs.Close()
End If
End Try
ddCty.SelectedItem.Text = "Select Zip Code..."
End Sub
Sub GetCountySites (sender As object, e As EventArgs)
If pnImage.Visible = True Then
pnImage.Visible = False
btnPhotos.Visible = False
SitePanel.Visible = False
End If
dlSites.Items.Clear()
Dim cmdSelect As OLEDbCommand
Dim dbconn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Aerials.mdb;")
cmdSelect = New OleDbCommand ("SELECT Site_ID, WebID FROM tblFieldData WHERE County ='" & ddCty.SelectedItem.Text & "'" & "ORDER BY SITE_ID", dbconn)
Dim reader As OleDbDataReader
Try
dbconn.Open()
reader = cmdSelect.ExecuteReader()
Do While reader.Read()
Dim NewItem As New ListItem()
NewItem.Value = reader("Site_ID"
NewItem.Text = reader("WebID"
dlSites.Items.Add(NewItem)
Loop
reader.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconn Is Nothing) Then
dbconn.Close()
End If
End Try
End Sub
Private Sub btnSites_Click(sender As object, e As EventArgs)
'Make sure a site is selected...
If dlSites.SelectedIndex <> -1 Then
lblResults.Text = ""
SitePanel.Visible = True
'get site details...
Dim cmdSelect As OLEDbCommand
Dim dbconn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Aerials.mdb;")
cmdSelect = New OleDbCommand ("SELECT WebID, NumPhotos, Type, Activity, Latitude, Longitude, PPP, River_Basin, Waterbody, Description, Notes FROM tblFieldData WHERE Site_ID ='" & dlSites.SelectedItem.Value & "'", dbconn)
Dim reader As OleDbDataReader
Try
dbconn.Open()
reader = cmdSelect.ExecuteReader()
While reader.Read()
lblWebID.Text = Left(reader("WebID",3)
lblNumPhotos.Text = reader("NumPhotos"
lblType.Text = reader("Type"
lblActivity.Text = reader("Activity"
lblLatitude.Text = reader("Latitude"
lblLongitude.Text = reader("Longitude"
lblPPP.Text = reader("PPP"
lblRiverBasin.Text = reader("River_Basin"
lblWaterbody.Text = reader("Waterbody"
lblDescription.Text = reader("Description"
lblNotes.Text = reader("Notes"
End While
reader.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconn Is Nothing) Then
dbconn.Close()
End If
End Try
Else
lblResults.text = "Choose a site!"
Exit Sub
End If
Dim strSite As String = Right(dlSites.SelectedItem.Value, 3)
Dim intSite As Integer = CInt(strSite)
lblintID.Text = intSite
Dim s As String
Dim i As Integer = 0
strPath = ".\AerialPhotos\" & ddCty.SelectedItem.Text & "\Site" & intSite & "\File0001.jpg"
Dim IMAGE_DIRECTORY As String = ".\AerialPhotos\" & ddCty.SelectedItem.Text & "\Site" & intSite & "\"
For Each s In Directory.GetFiles(Server.MapPath(IMAGE_DIRECTORY), "*s.jpg"
i = i + 1
next
strPaths = ".\AerialPhotos\" & ddCty.SelectedItem.Text & "\Site" & intSite & "\File0001s.jpg"
if i = 0 then
GenerateThumbnail(strPath, strPaths)
end if
btnPhotos.Visible = True
pnImage.Visible = True
End Sub
Sub GenerateThumbnail(strPath As String, strPaths As String)
Dim g, g2 As System.Drawing.Image
g = System.Drawing.Image.FromFile(Server.MapPath(strPath))
Dim imgw As Integer = g.Width
Dim imgh As Integer = g.height
If imgw >= imgh Then 'horiz...
imgw = 150
imgh = 99
Else 'vertical...
imgW = 99
imgH = 150
End If
g2 = g.GetThumbnailImage(imgw, imgh, Nothing, IntPtr.Zero)
g2.Save(Server.MapPath(strPaths))
g2.Dispose()
End Sub
Private Sub btnPhoto_Click(sender As object, e As EventArgs)
Response.Redirect("ForSites.aspx?County=" & ddCty.SelectedItem.Text & "&ID=" & lblintID.Text & "&SiteID=" & dlSites.SelectedItem.Value & "'"
End Sub
</script>
<html>
<HEAD>
<title>Search AWW Photo Gallery</title>
Here is a complete page, with the Try...Catch error trapping during db connection: Also a couple of other things going on - send this page to the printer, and the rest should jump out at ya - nuthin but VB and a little java --
<%@ Page Language="VB" Debug="false" %>
<%@Import Namespace = "Microsoft.VisualBasic"%>
<%@Import Namespace = "System"%>
<%@Import Namespace = "System.Web"%>
<%@Import Namespace = "System.Web.UI"%>
<%@Import Namespace = "System.Web.UI.WebControls"%>
<%@Import Namespace = "System.Web.UI.HtmlControls"%>
<%@Import Namespace = "System.Data"%>
<%@Import Namespace = "System.Data.OleDb"%>
<script runat="server">
Public strPath, strPaths As String
Private Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
radCounty.Attributes.Add("onMouseOut", "RetImage()"
radWShed.Attributes.Add("onMouseOut", "RetImage()"
radWbody.Attributes.Add("onMouseOut", "RetImage()"
radGIS.Attributes.Add("onMouseOut", "RetImage()"
radZIP.Attributes.Add("onMouseOut", "RetImage()"
radGroup.Attributes.Add("onMouseOut", "RetImage()"
radTSR.Attributes.Add("onMouseOut", "RetImage()"
radCounty.Attributes.Add("onMouseOver", "switchpic('images/Counties.gif')"
radWShed.Attributes.Add("onMouseOver", "switchpic('images/WShed.gif')"
radWbody.Attributes.Add("onMouseOver", "switchpic('images/Wbody.gif')"
radZIP.Attributes.Add("onMouseOver", "switchpic('images/ZIP.gif')"
radGIS.Attributes.Add("onMouseOver", "switchpic('images/GIS.gif')"
radGroup.Attributes.Add("onMouseOver", "switchpic('images/Group.gif')"
radTSR.Attributes.Add("onMouseOver", "switchpic('images/TSR.gif')"
End If
End Sub
Sub GetCounties()
'open database...
Dim cmdSelect As OLEDbCommand
Dim dbconn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Aerials.mdb;"
) cmdSelect = New OLEDbCommand("SELECT DISTINCT County FROM tblFieldData ORDER BY County", dbconn)
Try
dbconn.Open()
ddCty.DataSource = cmdSelect.ExecuteReader()
ddCty.DataBind()
dbconn.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconn Is Nothing) Then
dbconn.Close()
End If
End Try
End Sub
Sub GetZipCodes()
Dim dbconnSiteRecs As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Sites.mdb;"
)Try
dbconnSiteRecs.Open()
Dim DBCommand = New OleDbCommand ("SELECT DISTINCT tblZipCodes.City, tblZipCodes.County, WebMasterSites.ZipCode & ' ' & tblZipCodes.County & ' Co., ' & tblZipCodes.City & ', ' & tblZipCodes.State As ZipInfo FROM WebMasterSites LEFT JOIN tblZipCodes ON WebMasterSites.ZipCode = tblZipCodes.Zip_Code WHERE (((WebMasterSites.ZipCode)<>'NV')) ORDER BY tblZipCodes.County, tblZipCodes.City", dbconnSiteRecs)
Dim reader As OleDbDataReader
ddCty.DataSource = DBCommand.ExecuteReader()
ddCty.DataTextField = "ZipInfo"
ddCty.DataBind()
dbconnSiteRecs.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconnSiteRecs Is Nothing) Then
dbconnSiteRecs.Close()
End If
End Try
ddCty.SelectedItem.Text = "Select Zip Code..."
End Sub
Sub GetCountySites (sender As object, e As EventArgs)
If pnImage.Visible = True Then
pnImage.Visible = False
btnPhotos.Visible = False
SitePanel.Visible = False
End If
dlSites.Items.Clear()
Dim cmdSelect As OLEDbCommand
Dim dbconn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Aerials.mdb;"
) cmdSelect = New OleDbCommand ("SELECT Site_ID, WebID FROM tblFieldData WHERE County ='" & ddCty.SelectedItem.Text & "'" & "ORDER BY SITE_ID", dbconn)
Dim reader As OleDbDataReader
Try
dbconn.Open()
reader = cmdSelect.ExecuteReader()
Do While reader.Read()
Dim NewItem As New ListItem()
NewItem.Value = reader("Site_ID"
NewItem.Text = reader("WebID"
dlSites.Items.Add(NewItem)
Loop
reader.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconn Is Nothing) Then
dbconn.Close()
End If
End Try
End Sub
Private Sub btnSites_Click(sender As object, e As EventArgs)
'Make sure a site is selected...
If dlSites.SelectedIndex <> -1 Then
lblResults.Text = ""
SitePanel.Visible = True
'get site details...
Dim cmdSelect As OLEDbCommand
Dim dbconn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(".\fpdb\Aerials.mdb;"
) cmdSelect = New OleDbCommand ("SELECT WebID, NumPhotos, Type, Activity, Latitude, Longitude, PPP, River_Basin, Waterbody, Description, Notes FROM tblFieldData WHERE Site_ID ='" & dlSites.SelectedItem.Value & "'", dbconn)
Dim reader As OleDbDataReader
Try
dbconn.Open()
reader = cmdSelect.ExecuteReader()
While reader.Read()
lblWebID.Text = Left(reader("WebID"
,3)lblNumPhotos.Text = reader("NumPhotos"
lblType.Text = reader("Type"
lblActivity.Text = reader("Activity"
lblLatitude.Text = reader("Latitude"
lblLongitude.Text = reader("Longitude"
lblPPP.Text = reader("PPP"
lblRiverBasin.Text = reader("River_Basin"
lblWaterbody.Text = reader("Waterbody"
lblDescription.Text = reader("Description"
lblNotes.Text = reader("Notes"
End While
reader.Close()
Catch err As Exception
lblResults.Text = "Error:"
lblResults.Text &= err.Message
Finally
If (Not dbconn Is Nothing) Then
dbconn.Close()
End If
End Try
Else
lblResults.text = "Choose a site!"
Exit Sub
End If
Dim strSite As String = Right(dlSites.SelectedItem.Value, 3)
Dim intSite As Integer = CInt(strSite)
lblintID.Text = intSite
Dim s As String
Dim i As Integer = 0
strPath = ".\AerialPhotos\" & ddCty.SelectedItem.Text & "\Site" & intSite & "\File0001.jpg"
Dim IMAGE_DIRECTORY As String = ".\AerialPhotos\" & ddCty.SelectedItem.Text & "\Site" & intSite & "\"
For Each s In Directory.GetFiles(Server.MapPath(IMAGE_DIRECTORY), "*s.jpg"
i = i + 1
next
strPaths = ".\AerialPhotos\" & ddCty.SelectedItem.Text & "\Site" & intSite & "\File0001s.jpg"
if i = 0 then
GenerateThumbnail(strPath, strPaths)
end if
btnPhotos.Visible = True
pnImage.Visible = True
End Sub
Sub GenerateThumbnail(strPath As String, strPaths As String)
Dim g, g2 As System.Drawing.Image
g = System.Drawing.Image.FromFile(Server.MapPath(strPath))
Dim imgw As Integer = g.Width
Dim imgh As Integer = g.height
If imgw >= imgh Then 'horiz...
imgw = 150
imgh = 99
Else 'vertical...
imgW = 99
imgH = 150
End If
g2 = g.GetThumbnailImage(imgw, imgh, Nothing, IntPtr.Zero)
g2.Save(Server.MapPath(strPaths))
g2.Dispose()
End Sub
Private Sub btnPhoto_Click(sender As object, e As EventArgs)
Response.Redirect("ForSites.aspx?County=" & ddCty.SelectedItem.Text & "&ID=" & lblintID.Text & "&SiteID=" & dlSites.SelectedItem.Value & "'"
End Sub
</script>
<html>
<HEAD>
<title>Search AWW Photo Gallery</title>
Code:
<Script type="text/JavaScript">
function switchpic(imgsrc){
document.images['first'].src=imgsrc;
}
function RetImage() {
document.images['first'].src = "images/State.gif";
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
</script>
</HEAD>
<body background="images/peach.jpg" onLoad="MM_preloadImages('images/State.gif','images/ZIP.gif','images/Group.gif','images/TSR.gif','images/Counties.gif','images/GIS.gif','images/Wbody.gif','images/WShed.gif')">
<form id="Form1" runat="server">
<table border="1" cellpadding="1" cellspacing="1" width="690" height="445">
<tr>
<td width="310" height="445" align="middle" Valign="center">
<p></p>
<p></p>
<p></p>
<p>
<asp:Label id="lblOption" runat="server" Forecolor="Navy" Font-bold="true" Visible="false"/></p>
<p>
<asp:DropDownList id="ddCty" runat="server" DataTextField = "County" width="130px" Visible="false"/>
<asp:Button id="btnGo" runat="server" Type="submit" Text="Go!" Forecolor="red" Visible="false"/></p>
<p>
<asp:Label id="lblSite" runat="server" Forecolor="Navy" Text="Search photo gallery by..." Font-bold="true"/></p>
<p>
<asp:Listbox id=dlSites runat="server" width="260px" height="240px" Visible="false"/>
<p align="left">
<asp:Label id="lblAlabama" runat="server" Width="110px" GroupName="OptSite" Forecolor="Navy" Text=" County"/><br>
<asp:Label id="lblCahaba" runat="server" Width="110px" GroupName="OptSite" Forecolor="Navy" Text=" Watershed"/><br>
<asp:Label id="lblCoastal" runat="server" Width="110px" GroupName="OptSite" Forecolor="Navy" Text=" Waterbody"/><br>
<asp:Label id="lblCoosa" runat="server" Width="110px" GroupName="OptSite" Forecolor="Navy" Text=" Zip Code"/><br>
<asp:Label id="lblTallapoosa" runat="server" Width="110px" GroupName="OptSite" Forecolor="Navy" Text=" GIS radius"/><br>
<asp:Label id="lblTennessee" runat="server" Width="110px" GroupName="OptSite" Forecolor="Navy" Text=" AWW Site"/><br>
<asp:Label id="lblWarrior" runat="server" Width="170px" GroupName="OptSite" Forecolor="Navy" Text=" Town-Sec-Range"/></p>
<p align="center">
<asp:Button id="btnOpt" runat="server" Type="submit" Text="Go!" Forecolor="red" width="40px"/></p>
</p>
<br>
<asp:Button id="btnSites" runat="server" Type="submit" OnClick="btnSites_Click" Text="Select" Forecolor="red" width="130px" Visible="false"/>
<p><a href="Index.aspx">Data Forum</a><br>
<asp:Label id="lblResults" Font-Bold="true" runat="server" ForeColor="Red"/></p></td>
<td Valign="bottom" align="center">
<p>
<img name="first" border="0" src="images/State.gif" width="304" height="407"></p>
<asp:Panel id="pnImage" runat="server" Visible="False">
<p></p>
<p></p>
<img border="2px border-color="#0000FF" src="<%=strPaths%>">
</asp:Panel>
<p></p>
<p></p>
<asp:Button id="btnPhotos" OnClick="btnPhoto_Click" runat="server" type="submit" Text="Get Photos" ForeColor="Red" Visible="False"/></p>
<p align="center">Coming Soon!</p>
</td>
</tr>
</table>
<asp:Textbox id="Sites" runat="server" Visible="false"/>
<asp:Label id="lblintID" runat="server" Visible="false"/>
</form>
</body>
</html>- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question