asp ile başvuru formunda veri + resim upload etme sorunu

merhaba;

          bir kaç gündür başvuru forumyla ilgileniyom adı soyadı gibi  veriler database e kayıt oluyor lakin resim i bi türlü upload edemedim. birde onaylıyorum checkbox  ı koydum o da şöle yapıyor işaretleren işlem yapıyor lakin veritabanına işlenmiyor istediğim chechbox işaretli dğil se kaydet çalışmasın  önemlisi ise resim upload etmesi kodlar aşağıda biraz uzun 🙂

en üstte veri tabanı bağlantı yolu var  

 ********************************

üst tarıfında tablo var input girişleri yazılı isimler doru tablodakilerle kontrol edildi  

<%

if request.QueryString("islem")="ekle" then

'***********************************************************

Set Upload = Server.CreateObject("Persits.Upload")

Upload.SetMaxSize 50000000, True

Count  = Upload.Save

'***********************************************************

'***********************************************************

adsoyad=Upload.FORM("adsoyad")

tcno=Upload.FORM("tcno")

cinsiyet=Upload.FORM("cinsiyet")

dogtar=Upload.FORM("dogtar")

dogyer=Upload.FORM("dogyer")

kangrb=Upload.FORM("kangrb")

hastalik=Upload.FORM("hastalik")

gsm=Upload.FORM("gsm")

sabittel=Upload.FORM("sabittel")

eposta1=Upload.FORM("eposta1")

webad=Upload.FORM("webad")

facebook=Upload.FORM("facebook")

univer=Upload.FORM("univer")

fakulte=Upload.FORM("fakulte")

bolum=Upload.FORM("bolum")

ydil=Upload.FORM("ydil")

klup=Upload.FORM("klup")

lise=Upload.FORM("lise")

girisyil=Upload.FORM("girisyil")

sehir=Upload.FORM("sehir")

nerdekal=Upload.FORM("nerdekal")

kalyeradres=Upload.FORM("kalyeradres")

badi=Upload.FORM("badi")

bmeslek=Upload.FORM("bmeslek")

bcalisyer=Upload.FORM("bcalisyer")

bkonumu=Upload.FORM("bkonumu")

baylikgelir=Upload.FORM("baylikgelir")

bsag=Upload.FORM("bsag")

aadi=Upload.FORM("aadi")

ameslek=Upload.FORM("ameslek")

acalisyer=Upload.FORM("acalisyer")

asag=Upload.FORM("asag")

aaylikgelir=Upload.FORM("aaylikgelir")

kardessay=Upload.FORM("kardessay")

tahsil=Upload.FORM("tahsil")

annebaba=Upload.FORM("annebaba")

sehit=Upload.FORM("sehit")

aevadres=Upload.FORM("aevadres")

evdurum=Upload.FORM("evdurum")

evtel=Upload.FORM("evtel")

btel=Upload.FORM("btel")

atel=Upload.FORM("atel")

dbhk=Upload.FORM("dbhk")

burskur=Upload.FORM("burskur")

refad=Upload.FORM("refad")

refkur=Upload.FORM("refkur")

sart=Upload.FORM("sart")

status = Upload.form("status")

'**************************************************************

if (status<>"") then

'////////////////////////////////////////////////////////////////////////////

Set image = Upload.Files("newImage")

If Not image Is Nothing then

imageName = image.FileName

for vcNumber= 1 to valConCount

imageName = Replace(imageName ,""&valConA(""&vcNumber&"")&"",""&valConB(""&vcNumber&"")&"")

next

Randomize

aNumber=int((Rnd(90000000) * 90000000) + 1)

newImage = aNumber &"" & imageName

image.SaveAs server.mappath("panel\resimgaleri\2011basvuru") & "\" & newImage

Set Jpeg = Server.CreateObject("Persits.Jpeg")

yol = server.mappath("panel\resimgaleri\2011basvuru") & "\" & newImage

Jpeg.Open yol

L = 650 'BUYUK YÇYN

'Jpeg.Width = L

'Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

If jpeg.OriginalWidth > L Then

     If jpeg.OriginalWidth > jpeg.OriginalHeight Then

     jpeg.Width = L

     jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

     Else

     jpeg.Height = L

     jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight

     End If

Else

     jpeg.Width = jpeg.OriginalWidth 

jpeg.Height = jpeg.OriginalHeight

End If

Jpeg.Quality = 100

Jpeg.Save Server.MapPath("panel\resimgaleri\2011basvuru\Buyuk" ) &"/" & newImage

'*****************************************************************

yolkucuk = server.mappath("panel\resimgaleri\2011basvuru") & "\" & newImage

ResimWidth = 300

ResimHeight = 250

Jpeg.Open yolkucuk

Jpeg.New ResimWidth, ResimHeight, &HF4F4F4

Set Img = Server.CreateObject("Persits.Jpeg")

Img.Open yolkucuk

    Img.PreserveAspectRatio = True

    If Img.OriginalWidth > ResimWidth or Img.OriginalHeight > ResimHeight Then

        If Img.OriginalWidth > Img.OriginalHeight Then

            Img.Width = ResimWidth

        Else

            Img.Height = ResimHeight

        End If

    End If

    Count = 0

    X = 0 * Count

    Y = 0

    Jpeg.Canvas.DrawImage X + (ResimWidth - Img.Width) / 2, Y + (ResimHeight - Img.Height) / 2, Img

Jpeg.Quality = 100

Jpeg.Save Server.MapPath("panel\resimgaleri\2011basvuru\Kucuk" ) &"/" & newImage

end if

'////////////////////////////////////////////////////////////////////////////

 

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

RS.open "SELECT * FROM 2011burs",Conna,3,3

  RS.AddNew()

RS("adsoyad") = adsoyad

RS("tcno") = tcno

RS("cinsiyet") = cinsiyet

RS("dogtar") = dogtar

RS("dogyer") = dogyer

RS("kangrb") = kangrb

RS("hastalik") = hastalik

RS("gsm") = gsm

RS("sabittel") = sabittel

RS("eposta1") = eposta1

RS("facebook") = facebook

RS("webad") = webad

RS("univer") = univer

RS("fakulte") = fakulte

RS("bolum") = bolum

RS("ydil") = ydil

RS("klup") = klup

RS("lise") = lise

RS("girisyil") = girisyil

RS("sehir") = sehir

RS("nerdekal") = nerdekal

RS("kalyeradres") = kalyeradres

RS("badi") = badi

RS("bmeslek") = bmeslek

RS("bcalisyer") = bcalisyer

RS("bkonum") = bkonum

RS("baylikgelir") = baylikgelir

RS("bsag") = bsag

RS("aadi") = aadi

RS("ameslek") = ameslek

RS("acalisyer") = acalisyer

RS("asag") = asag

RS("aaylikgelir") = aaylikgelir

RS("kardessay") = kardessay

RS("tahsil") = tahsil

RS("annebaba") = annebaba

RS("sehit") = sehit

RS("aevadres") = aevadres

RS("evdurum") = evdurum

RS("evtel") = evtel

RS("btel") = btel

RS("atel") = atel

RS("dbhk") = dbhk

RS("burskur") = burskur

RS("refad") = refad

RS("refkur") = refkur

  

if newImage<>"" then RS("newImage")=newImage end if

RS("status") = status

RS.Update

RS.Close

'////////////////////////////////////////////////////////////////////////////

Response.Redirect("panel/panelxmaya/sayfa.asp?gorev=okey")

else

Response.Redirect("panel/panelxmaya/sayfa.asp?gorev=error")

end if

'*****************************************************************

end if

%>