FLASH -->ASP-->ACCESS desperation!

[tsisa]

hallow,

epeidi den briskw lysh sto problima mou me tipota gi ayto to eidos syndeshs pou god knows how mou katebike na ftiaksw apofasisa na zhthsw th bohthia sas.

this is the thing: flash form dexete apo xrhsth stoixeia mesw radiobuttons kai checkboxes kai comboboxes kai ola ta kala..

asp pairnei times (akoma den to exw testarei ) apo flash tis dinei sthn asp kai ayth ta pernaei sthn access.

 

pera apo to flash-->asp part pou tha to dw sthn synexeia.. exw kollisei sto asp-->database part to opoio mou bgazei lathi.to pio prosfato htan to 80040e07 alla kata kairous exw parei kai 80040e14 kathws kai 80040e10 klp klp

to 80040e07 kai to e10 einai ayta pou antimetwpizw twra kserw ti leei to support ths microsoft gi ayta ta errors apla den kserw pou kanw egw to lathos profanws exw katanohsei lathos kapoia pragmata..

 

 

parathetw ton kwdika kai tha ithela ti gnwmi sas :

 

 

<%

 

' Declaring variables

Dim name, lastname,tel,email,diamoni,age,sex,married,millitary,phd,master,didaktoriko,agglika,glwssa,experience,sxolia, sConnString, con,

 

sql_insert

 

Function ChkString(string)

If string = "" Then string = " "

ChkString = Replace(string, "'", "''")

End Function

 

 

' Receiving values from Form

name =ChkString(Request.Form("name"))

lastname = ChkString(Request.Form("lastname"))

tel = Request.Form("tel")

email = ChkString(Request.Form("email"))

diamoni = ChkString(Request.Form("diamoni"))

age=Request.Form("age")

sex=ChkString(Request.Form("sex"))

 

married=ChkString(Request.Form("married"))

millitary=ChkString(Request.Form("millitary"))

phd=ChkString(Request.Form("phd"))

master=ChkString(Request.Form("master"))

didaktoriko=ChkString(Request.Form("didaktoriko"))

agglika=ChkString(Request.Form("agglika"))

glwssa=ChkString(Request.Form("language"))

experience=ChkString(Request.Form("experience"))

sxolia= ChkString(Request.Form("sxolia"))

 

 

 

 

'declare SQL statement

sql_insert = "INSERT into TBL (name,

 

lastname,tel,email,diamoni,age,sex,married,millitary,phd,master,didaktoriko,agglika,glwssa,experience,sxolia) values

 

('"&name&"','"&lastname&"',"&tel&",'"&email&"','"&diamoni&"',"&age&",'"&sex&"','"&married&"','"&millitary&"','"&phd&"','"&master&"','"&didaktoriko

 

&"','"&agglika&"','"&glwssa&"','"&experience&"','"&sxolia&"')"

 

 

'define conn string

sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("form.mdb") & ";"

 

 

 

' Creating ADO Connection Object

Set con = Server.CreateObject("ADODB.Connection")

'open connection

con.Open(sConnString)

con.Execute(sql_insert)

 

'Send a success response to Flash

 

 

' Done. Close the connection

con.Close

Set con = Nothing

 

 

 

%>

 

 

 

ta fields sthn access exoun akribws tin idia onomasia.. primary key einai autonumber id

tel kai age exoun data type numbers

ta sex,married,millitary pairnoun times apo radiobuttons kai exoun oristei na pairnoun text sthn DB

ta didaktoriko kai to master einai checboxes kai exei oriste etsi kai sthn DB kai telos to sxolia einai memo.ayta.. elpizw na bgaloume akrh